双击一控件，怎样能获取该控件的名称！如双击DBEdit1，怎样把它的名字赋值给一变量！

Question

在OnDblClick的事件处理程序中写上如下代码：
if Sender is TDBEdit then
begin  变量名 := (Sender as TDBEdit).Name;end;

Answer 1

变量名 := Tcomponent(sender).name;

Answer 2

谢谢  hexenzhou(甲骨文)  dreamfan(★这个月辞职★) 
情况是这样的：
   有10个DBEdit要响应双击事件，根据DBEdit中的内容显示一个Form，我想把代码编成一个过程，在这个过程应怎样获知该DBedit的内容？
   我试试过两位的方法，不行，应该怎么办呢？

Answer 3

procedure DblEdit(sender:TObject);
var
  lstext:string;
begin
  lstext:=TDBEdit(sender).text;
  ..........;
  ..........
end;

Answer 4

也可以呀，在dbedit1.ondblclick中加入类似以下的代码，然后在dbedit2至dbedit10的ondblclick的下拉框中选择dbedit1.ondblclick就可以了。
form1.caption:=sender.caption;

Answer 5

你可以
procedure DblEdit(sender:TObject);
begin
  form2.showmoda;
  ..........;
  ..........
end;
在form2中加入如下代码
form2.edit1.text:=form1.edit1.name;