关于鼠标点击的问题

Question

怎样判断鼠标点击窗口上的控件时控件的名称，如：有一TEdit类的控件Edit1,
当鼠标点击该Edit1时，怎样在鼠标的点击事件中判断该控件是Edit1而不是Button1

Answer 1

procedure TForm1.Edit1Click(Sender: TObject);
begin
  if Sender is TEdit then
    ShowMessage('是Edit，不是Button！');
end;

Answer 2

procedure TForm1.Edit1Click(Sender: TObject);
begin
  if Sender is TEdit then
    ShowMessage(TEdit(sender).name);
end;

Answer 3

但是如果有两个TEdit类的控件Edit1和Edit2，我怎样判断它点击的是Edit1而不是Edit2呢？

Answer 4

ShowMessage(TEdit(sender).name)能直接返回具体的名称啊，你在判断一下不就行了嘛，比如：
···
if TEdit(sender).name='Edit1' then 
begin
```
end;
···

Answer 5

edit1.tag:=1;
edit2.tag:=2;
if Sender is TEdit then
begin    
  if (sender as tedit).tag=1 then
  begin
    showmessage('1');
  end;
end;