unit Unit1;
interface
..............
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure mybuttonclick(sender:Tobject); //不要加Tform1
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
mybutton:tbutton;
implementation
......
procedure tform1.mybuttonclick(sender:Tobject);
var button1:tbutton;
begin
button1.caption:='ok'
end;
end.
interface
..............
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure mybuttonclick(sender:Tobject); //不要加Tform1
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
mybutton:tbutton;
implementation
......
procedure tform1.mybuttonclick(sender:Tobject);
var button1:tbutton;
begin
button1.caption:='ok'
end;
end.
Button1.OnClick := mybuttonclick;
可以在别的地方定义。