| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> delphi >> Delphi shi xian QQ chuang ti de suo ru shen chu gong neng

Delphi shi xian QQ chuang ti de suo ru shen chu gong neng

2008-05-21 03:27:31 编辑來源:互联网 评论
 
 
 
本文为【Delphi实现QQ窗体的缩入伸出功能】的拼音翻译版
  bu zhi dao da jia zai shi yong QQ shi you mei you xiang dao ta de suo ru shen chu de gong neng shi ru he shi xian de ne ? shi xian zhe ge xiao guo de guan jian zai yu ru he pan duan dang qian shu biao zhi zhen xia mian de chuang ti shi bu shi wo men de cheng xu chuang ti 。GetCursorPos() shi yi ge ke yi huo de shu biao zhi zhen zai ping mu zhong de zuo biao de API han shu , li yong ta yu FindVCLWindow() de jie he jiu ke yi qing yi di huo de shu biao zhi zhen xia de VCL ke shi zu jian , dan dang yi ge chuang ti zhong bu zhi yi ge VCL ke shi zu jian , li ru ke neng huan you TPanel、TMemo deng deng lei xing shi , na me wo men jiu bi xu yao cha zhao dao ta men de Parent ji , zui zhong de dao TForm, na jiu shi zhi wo men de cheng xu chuang ti 。 an zhao zhe ge si lu wo zi ding yi le GetFormNameAt() han shu , ta ke huo de dang qian shu biao zhi zhen xia mian de chuang ti de ming cheng 。 yi xia lie chu cheng xu de zhu yao shi xian dai ma , gong da jia shen kao :
  
  // zi ding yi han shu GetFormNameAt, huo de shu biao zhen zhi xia chuang ti de Name
  function GetFormNameAt ( X, Y : integer ) : string;
  var
  P:TPoint;
  W:TWinControl;
  begin
  P.X := X;
  P.Y := Y;
  W := FindVCLWindow(P); // de dao shu biao zhi zhen xia de VCL ke shi zu jian
  if ( nil <> W ) then
  begin
  while w.Parent<>nil do // dang W de shang ji Parent bu wei kong shi jiu ji xu wang shang zhao
  w:=w.Parent;
  Result := W.Name;// zui hou fan hui chuang ti de ming cheng Name
  end
  else
  begin
  Result := ’’;
  end;
  end;
  procedure TForm1.Timer1Timer(Sender: TObject);
  var
  winPos:TPoint;
  begin
  if (form1.Top<=3) or (form1.Left>=screen.Width-form1.Width-3) then // pan ?
  begin
  GetCursorPos(winpos); // de dao dang qian shu biao zhi zhen de zai ping mu shang de zuo biao
  // dang shu biao zhi zhen xia de chuang ti de Name deng yu form1.name shi
  if form1.name=GetFormNameAt(winpos.X,winpos.Y) then
  { zai ci wo men ke yi wei form1 qu yi ge te bie de ming cheng , yi fang you bie de chuang ti ming cheng yu ta xiang tong }
  begin
  form1.Timer2.Enabled:=false; // ting yong Timer2
  form1.Top:=0; //form1 de Top yu ping mu dui qi
  end
  else
  form1.Timer2.Enabled:=true; // kai qi Timer2
  end;
  end;
  procedure TForm1.Timer2Timer(Sender: TObject);
  begin
  if form1.Top<=20 then
  form1.Top:=-(form1.Height-10);// jiang form1 xiang shang yi , zai ping mu shang fang lu chu 10 xiang su
  end;【原文】【汉音对照
 
 
 
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
   bu zhi dao da jia zai shi yong QQ shi you mei you xiang dao ta de suo ru shen chu de gong neng shi ru he shi xian de ne ? shi xian zhe ge xiao guo de guan jian zai yu ru he pan duan dang qian shu biao zhi zhen xia mian de chuang ti shi bu shi wo men de cheng xu chuang ti 。GetCursorPos() shi yi ge ke yi huo de shu biao zhi zhen zai ping mu zhong de zuo biao de API han shu , li yong ta yu FindVCLWindow() de jie he jiu ke yi qing yi di huo de shu biao zhi zhen xia de VCL ke shi zu jian , dan dang yi ge chuang ti zhong bu zhi yi ge VCL ke shi zu jian , li ru ke neng huan you TPanel、TMemo deng deng lei xing shi , na me wo men jiu bi xu yao cha zhao dao ta men de Parent ji , zui zhong de dao TForm, na jiu shi zhi wo men de cheng xu chuang ti 。 an zhao zhe ge si lu wo zi ding yi le GetFormNameAt() han shu , ta ke huo de dang qian shu biao zhi zhen xia mian de chuang ti de ming cheng 。 yi xia lie chu cheng xu de zhu yao shi xian dai ma , gong da jia shen kao :            // zi ding yi han shu GetFormNameAt, huo de shu biao zhen zhi xia chuang ti de Name   function GetFormNameAt ( X, Y : integer ) : string;   var   P:TPoint;   W:TWinControl;   begin   P.X := X;   P.Y := Y;   W := FindVCLWindow(P); // de dao shu biao zhi zhen xia de VCL ke shi zu jian   if ( nil <> W ) then   begin   while w.Parent<>nil do // dang W de shang ji Parent bu wei kong shi jiu ji xu wang shang zhao   w:=w.Parent;   Result := W.Name;// zui hou fan hui chuang ti de ming cheng Name   end   else   begin   Result := ’’;   end;   end;   procedure TForm1.Timer1Timer(Sender: TObject);   var   winPos:TPoint;   begin   if (form1.Top<=3) or (form1.Left>=screen.Width-form1.Width-3) then // pan ?   begin   GetCursorPos(winpos); // de dao dang qian shu biao zhi zhen de zai ping mu shang de zuo biao   // dang shu biao zhi zhen xia de chuang ti de Name deng yu form1.name shi   if form1.name=GetFormNameAt(winpos.X,winpos.Y) then   { zai ci wo men ke yi wei form1 qu yi ge te bie de ming cheng , yi fang you bie de chuang ti ming cheng yu ta xiang tong }   begin   form1.Timer2.Enabled:=false; // ting yong Timer2   form1.Top:=0; //form1 de Top yu ping mu dui qi   end   else   form1.Timer2.Enabled:=true; // kai qi Timer2   end;   end;   procedure TForm1.Timer2Timer(Sender: TObject);   begin   if form1.Top<=20 then   form1.Top:=-(form1.Height-10);// jiang form1 xiang shang yi , zai ping mu shang fang lu chu 10 xiang su   end;
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
桌球宝贝_性感在蔓延(3)
桌球宝贝_性感在蔓延(2)
银杏树下清纯女孩(9)
银杏树下清纯女孩(8)
痞子的甘南日记
疑是银河落九天
雪域坝上四——纯美色
冬日恋歌——西城杨柳弄轻柔
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
 
©2005- 王朝网络 版权所有