メソッドとしてのデルファイプロシージャの呼び出し

Question

コンパイルが簡単ですが、アクセス違反を発生させる簡単なコードです。それはMDプロシージャに入り、デバッガはいくつかのXとYの値を表示しますが、プロシージャAVを終了した後に発生します。誰かが助けることを願っています。

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Controls, Forms, ExtCtrls; 

type 
    TForm1 = class(TForm) 
    Panel1: TPanel; 
    procedure FormCreate(Sender: TObject); 
    end; 

var 
    Form1: TForm1; 

implementation 

    {$R *.dfm} 

procedure MD(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
    form1.caption:= inttostr(x)+ ' '+ inttostr(y); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 

function MakeMethod(data, code: pointer): TMethod; 
begin 
    result.Data:= data; 
    result.Code:= code; 
end; 

begin 
    panel1.OnMouseDown:= TMouseEvent(MakeMethod(nil, @MD)); 
end; 

end. 

おかげ

Answer 1

はMDフォームクラスのメンバー作ってみましょう。クラス定義で ：あなたの例次のように編集して、このイベントハンドラを割り当てるとき、最後に

procedure TForm1.MD(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 

：後続のコードで

type 
TForm1 = class(TForm) 
    Panel1: TPanel; 
    procedure FormCreate(Sender: TObject); 
    procedure MD(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
end; 

はそうのようなMD方式の所有者を入力してくださいあなたのコンポーネントに、あなたがしなければならないすべては次のとおりです。

panel1.OnMouseDown:= MD; 

私はあなたの意図が何であったか知らないが、それはあなたが実行時のEventHandlerの世話をする方法です。

Answer 2

MD署名には追加の隠しパラメータが含まれている必要があります。 AV問題を解決します。

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, ExtCtrls; 


type 
    TForm1 = class(TForm) 
    Panel1: TPanel; 
    procedure FormCreate(Sender: TObject); 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure MD(Instance, Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
    form1.caption:= inttostr(x)+ ' '+ inttostr(y); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 

function MakeMethod(data, code: pointer): TMethod; 
begin 
    result.Data:= data; 
    result.Code:= code; 
end; 

begin 
    panel1.OnMouseDown:= TMouseEvent(MakeMethod(nil, @MD)); 
end; 

end.