如果控件有其它的类(如tedit),又怎写?例如:
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
private
{ Private declarations } public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(???);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(???);
end;procedure TForm1.Edit1Click(Sender: TObject);
begin
showmessage(???);
end;end.
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
private
{ Private declarations } public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(???);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(???);
end;procedure TForm1.Edit1Click(Sender: TObject);
begin
showmessage(???);
end;end.
begin
showmessage(TButton(Sender).Caption);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(TButton(Sender).Caption);
end;procedure TForm1.Edit1Click(Sender: TObject);
begin
showmessage(TEdit(Sender).Text);
end;
http://community.csdn.net/Expert/topic/3467/3467168.xml?temp=.5576593
showmessage(Tbutton(sender).caption);
showmessage((sender as Tbutton).caption);
----------------------------------------------
//对tedit也合适的
procedure TForm1.Edit1Click(Sender: TObject);
begin
showmessage((sender as Tcontrol).name);
end;