怎样得到控件的名字

[DataBind]

谁能告诉我怎样在运行期间得到一个控件的name.
例如：
procedure TForm.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
{在此处我想得到‘Edit1’，怎样才能取到？}
end;

[Nicrosoft]

试试这句语句：
ShowMessage(TComponent(Sender).Name);

用TComponent(Sender).Name可以得到控件名称。

[Michaelyfj]

showmessage((sender as TEdit).Name);

[wxz]

C++里可以强制转换指针,delphi里应该也可以,不过我不熟悉delphi
C++:
TEdit *Edit=(TEdit *)Sender;

[IAmKylix]

1、2应该都可以！
加个判断if Sender<>nil then ......更好！

[gigi2000]

If (sender as tedit).name = 'edit1' then ...