Question

delphi7如何知道Edit控件现在正拥有焦点?当tab移到它时.

只发现,if edit1.foursed 是不行的.

Answer 1

Edit有一个事件是OnEnter,意思就是当该控件获得焦点时触发。你试试。
procedure TForm1.Edit1Enter(Sender: TObject);
begin
showmessage('我现在拥有焦点啦！');
end
而focused是让控件获得焦点，你既然让它获得焦点了那还判断什么呢。
所以应该用OnEnter事件来捕捉获得焦点事件。