delphi 判断当前存在焦点的edit

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

2025-03-26 14:20:56

推荐回答（2个）

回答1：

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

回答2：

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