type
TForm1 = class(TForm)
Memo1: TMemo;
ApplicationEvents1: TApplicationEvents;
Button1: TButton;
procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
//Buttopn1で，かつメッセージがWM_MOUSELEAVEの時だけ処理
if Msg.hwnd = Button1.Handle then begin
if Msg.message = WM_MOUSELEAVE then begin
Memo1.Lines.Add('Leave');
end;
end;
end;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
private
protected
{ Private 宣言 }
procedure CMMouseleave(var Message: TMessage); message CM_MOUSELEAVE;
public
{ Public 宣言 }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
type
TCMMouseLeave = record
Msg : Cardinal;
Unused : Integer;
Sender : TControl;
Result : LongInt;
end;
{ TForm1 }
procedure TForm1.CMMouseleave(var Message: TMessage);
begin
inherited;
if TCMMouseLeave(Message).Sender = Button1 then begin
Memo1.Lines.Add('Leave');
end;
end;
TCMMouseLeave = record の定義は
Inside Delphi (Borland programming series) [単行本]
Ray Lischner 著
満田 秀訳，大野 元久，服部 誠監修の
634 頁にあるものを使用しました． http://www.amazon.co.jp/dp/4756119514
procedure TForm1.CMMouseleave(var Message: TMessage);
begin
inherited;
if TCMMouseLeave(Message).Sender = Panel1 then begin
Memo1.Lines.Add('Leave');
end;
end;
