名前
題名
▼ 空色の渚さん > Mr.XRAY様 > > 　早速のレスありがとうございます。 > 　またしても、頭の中では「ばっちぐー」的なコメントが発生しました。 > 　これなら簡単にいけそうです。 > 　感謝。感謝です。 > > 　ありがとうございました！ > 　さっそく組み込みます！ > > 　追伸 > 　これで、delphi5は生きながらえるのでした。 > > > ▼ Mr.XRAYさん > > > あるいは，TApplicationEvent の OnMessage イベントで処理するか， > > > > Delphi 5 で実装された ApplicationEvents コンポーネントを使用した例です． > > OnMessage イベントを作成します． > > コンポーネントパレットの [Additional] タブにあります． > > > > 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; > > > > 他の方法が必要なら，いくらでもコード書きますよ． > > サンプルプログラム集に，いくつも参考コードがあるので，たいして時間はかかりません． > > 次はサブクラスを使用したコードといきますか ?
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link