高手，急~~~~~帮帮我呀？

Question

delphi中有没有像foxpro中的那个getfocus()函数一样呀？？为什么上回有个兄弟说的那个focused()不的。有没有动态的判断当前控件已获的焦点的呀？
我要做的就是那个按钮，　当获的焦点时显示不同的图片，当离开时又显示不同的图片??

Answer 1

Focused是个属性，判断控件是否有焦点，设置焦点用：SetFocuse方法！

Answer 2

procedure TForm1.BitBtn1Enter(Sender: TObject);
begin
  //鼠标进入
end;procedure TForm1.BitBtn1Exit(Sender: TObject);
begin
  //鼠标移出
end;//其他控件类似

Answer 3

那么当失去焦点又用什么属性，或函数呀？好像没有lostfocused()??

Answer 4

/************************************************/
//设置焦点
WinControl.SetFous;
//得到焦点时触发事件
procedure WinControlEnter(Sender: TObject);
//失去焦点时触发事件
procedure WinControlExit(Sender: TObject);WinControl表示有焦点的控件
/************************************************/

Answer 5

得到焦点：edit1.setfous;
失去焦点：让别的得到焦点不就行了吗

Answer 6

得到焦点会触发OnEnter事件
失去焦点会触发OnExit事件
把代码写在这些事件里不就ok了？