delphi中的小问题-----无奈？

Question

单击label或edit有什么办法获得它的caption或text(不访问它的name)

Answer 1

在onclick事件里
  str:=label1.caption;
  str2:=edit1.text;

Answer 2

procedure TForm1.MyClick(Sender: TObject);  // 用于TLabel或TEdit
begin
  if Sender is TLabel then s:=TLable(Controls[i]).Caption
  else if Sender is TEdit then s:=TEdit(Controls[i]).Text;
end;

Answer 3

写错了
procedure TForm1.MyClick(Sender: TObject);  // 用于TLabel或TEdit
var
  s: string;
begin
  if Sender is TLabel then s:=TLable(Sender).Caption
  else if Sender is TEdit then s:=TEdit(Sender).Text;
end;