摘要：
procedure LetWindowShake(wHandle: THandle) ;const MAXDELTA = 4; SHAKETIMES = 500;var orect, wRect :TRect; deltax : integer; deltay : integer; cnt : integer; dx, dy : integer;begin //remember original position GetWindowRect(wHandle,wRect) ; orect := wRect; Randomize; for cnt :... 阅读全文
摘要：
//自定义函数GetFormNameAt，获得鼠标针指下窗体的Namefunction GetFormNameAt ( X, Y : integer ) : string;var P:TPoint; W:TWinControl;begin P.X := X; P.Y := Y; W := FindVCLWindow(P); //得到鼠标指针下的VCL可视组件 if ( nil <> W ) then begin while w.Parent<>nil do //当W的上级Parent不为空时就继续往上找 w:=w.Parent; R... 阅读全文
摘要：
新建一个应用程序，在窗体上放置一个TTimer和一个TPopupMenu，TTimer的Interval属性为1500，TPopupMenu建立三个子菜单项，分别为“总在最前”、“背景穿透”和“退出”。再准备一张背景图片。工程源代码如下：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IGDIPlus, ExtCtrls, Menus; type TForm1 = class(TForm) tmr1: ... 阅读全文
摘要：
很多程序员都讨厌阅读代码。来吧，承认吧！ 每个人都喜欢编写代码，编代码是件趣事。 另一方面，阅读代码也不容易。 不仅不容易，而且还非常枯燥，咱们要面对这一事实。任何不是你的代码都不怎样。（虽然我们没有说出来，但我们都是这样想的。 v0 l9 B' w7 j! H即便是你自己几个小时之前写的代码，也会看起来很烂。时间越久，看起来越烂。 所以，为什么你要浪费时间去看其他人的糟糕代码，而你完全可以利用这段时间编写你自己的优秀代码。 其实我们可以一试，几个小时之后回头再看，看看你的代码是否还依旧优秀。 如果你不能吸收前辈大师的经验知识，那你永远都无法成为一位大师。 成为大师的方法之一是，找到一 阅读全文