ユニット分割について (ID:150061)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 http://mrxray.on.coocan.jp/Delphi/zip/BetuUnit_OnMouseMove.zip に up したファイルは削除しました． この掲示板に掲載しておいた方がいいと思いますので procedure OnMouseMoveEvent(Self: TObject; Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure OnClickEvent(Self: TObject; Sender: TObject); var Form1: TForm1; implementation {$R *.DFM} //============================================================================= // Memo1 (TMmoe) のイベントをクラスのメンバではない手続きに割り当てる例 // // 動作確認 // Windows [Version 10.0.19042] Pro 64 bit + Delphi XE5(UP2) Pro VCL-32 //============================================================================= procedure TForm1.Button1Click(Sender: TObject); var LMethod : TMethod; begin LMethod.Code := @OnMouseMoveEvent; // クラス以外で設定する時は nil にでもしておく LMethod.Data := Self; Memo1.OnMouseMove := TMouseMoveEvent(LMethod); LMethod.Code := @OnClickEvent; LMethod.Data := Self; Memo1.OnClick := TNotifyEvent(LMethod); end; //----------------------------------------------------------------------------- // OnMouseMove イベント用の手続き //----------------------------------------------------------------------------- procedure OnMouseMoveEvent(Self: TObject; Sender: TObject; Shift: TShiftState; X, Y: Integer); var LText : string; begin LText := 'X : ' + IntToStr(X) + ' Y : ' + IntToStr(Y); Form1.Memo1.Lines.Add(LText); end; //----------------------------------------------------------------------------- // OnClick イベント用の手続き //----------------------------------------------------------------------------- procedure OnClickEvent(Self: TObject; Sender: TObject); begin ShowMessage('Clicked !! ' + TControl(Sender).Name); end;