ユニット分割について (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;

←解決時は質問者本人がここをチェックしてください。

戻る