名前 題名 ▼ Mr.XRAYさん > > このメッセージは，Delphi 1 の時からあるので，多分動作するのではと． > > 実際のコードです，usse 部は省略しています． > uses 部に追加するものはありません．多分． > > 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 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link