不知你是不是想这样子:
Type
TForm1=Class(TForm)
procedure Button1OnClick(Object: TObject);
public:
end;procedure TForm1.Button1OnClick(Object: TObject);
begin
//
end;在要用的地方如下写就可以了
Form1.OnClick = Button1OnClick;
Type
TForm1=Class(TForm)
procedure Button1OnClick(Object: TObject);
public:
end;procedure TForm1.Button1OnClick(Object: TObject);
begin
//
end;在要用的地方如下写就可以了
Form1.OnClick = Button1OnClick;
大概是这样子:
type
TEvent = procedure (Sender : TObject) of Object;var
A: TEvent;
begin
A := Button1.OnClick;
.........end;