1个简单的窗口消息

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
 7 
 8 type
 9   TForm1 = class(TForm)
10   private
11     { Private declarations }
12     procedure mysize(var daxiao:Twmsize);message wm_size;
13     procedure mymove(var daxiao:Twmmove);message wm_move;
14   public
15     { Public declarations }
16   end;
17 
18 var
19   Form1: TForm1;
20 
21 implementation
22 
23 {$R *.DFM}
24  procedure Tform1.mysize(var daxiao:Twmsize);
25  begin
26  showmessage('改变窗口大小，才显示这个提示框');
27  end;
28  procedure Tform1.mymove(var daxiao:Twmmove);
29  begin
30  showmessage('移动窗口');
31  end;
32 end.