delphi 判断当前存在焦点的edit

补充：delphi 判断当前存在焦点的edit！
然后提示

答案：我的想法是：
建一个公用数据，EditName : string;
然后每个TEdit都需要一个OnEnter事件，例如：
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  EditName := ‘Edit1’；        // 这样在程序的任何地方都可以调用 
  showMessage(‘进入了Edit1’);
end;

其他：Edit有一个OnEnter事件，在里面加入代码
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  showmessage('Edit1获得焦点了！');
end; 

上一个：delphi中，怎样将ADOquery1写到FormCreate里，大体的格式是什么？
下一个：delphi中如何让使用者不能修改edit中的信息