Question

delphi 判断当前存在焦点的edit

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

Answer 1

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

Answer 2

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