如何能让timage响应得到焦点和失去焦点的事件！

Question

rt！

Answer 1

这个控件应该是没有这个属性的吧，可以自己写代码来解决，比如在Image的边缘动态画一个矩形，焦点在它上面时就显示该矩形，否则隐藏该矩形。当然，可能还会有更好的方法，等待高手的解答...

Answer 2

Timage是从TGraphicControl继承下来的,根本没有不能焦点.
想实现的功能是什么?

Answer 3

TImage是不可能有焦点的,click事件倒是有

Answer 4

点中可以用click啊，如果是移到上面就显示一个信息提示可以用onmousemove。

Answer 5

//变通的方法：把Image放在Panel上，处理Panel的OnEnter和OnExit事件～～object Panel1: TPanel
  BevelOuter = bvNone
  TabStop = True
  OnEnter = Panel1Enter
  OnExit = Panel1Exit
  object Image1: TImage
    OnMouseDown = Image1MouseDown
  end
end
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TImage(Sender).Parent.SetFocus;
end;procedure TForm1.Panel1Enter(Sender: TObject);
begin
  Caption := 'Enter';
end;procedure TForm1.Panel1Exit(Sender: TObject);
begin
  Caption := 'Exit';
end;