如何检测鼠标何时不再处于控件中？ [复制]

Question

我已将图像 (TImage) 作为按钮放入我的程序中。我想添加一些额外的效果，所以在OnMouseMove（当用户将鼠标移到图像上时）图像被另一个图像替换以提供额外的效果：

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var 
  Path, Destination: String;
begin
  Path := ParamStr(0);
  Destination := Extractfilepath(Path) + 'Images\Image2.bmp';
  Image4.Picture.LoadFromFile(Destination);
end;

但是每当用户将鼠标移开时（当他离开图像时），它并不会撤消所做的事情（变回 Image1）。我要怎么做？没有OnMouseLeave 事件。我正在使用 delphi 7。

Answer 1

首先，您问题中的代码太糟糕了！每次光标在图像控件内移动一个像素时，它将（重新）加载位图！这太浪费 CPU 时间了！

无论如何，在现代版本的 Delphi 中，您只需使用 OnMouseEnter 和 OnMouseLeave 事件。我认为这些在 Delphi 7 中不存在，所以你必须这样做：

TImage = class(ExtCtrls.TImage)
protected
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
end;

在哪里

{ TImage }

procedure TImage.CMMouseEnter(var Message: TMessage);
begin
  // Do something
end;

procedure TImage.CMMouseLeave(var Message: TMessage);
begin
  // Do something else 
end;

此示例采用插入器类的形式，但当然您最好制作一个适当的子类控件。

Answer 2

如果您在图像控件中加载另一张图片，那么之前加载的图片就会消失：您必须再次加载它。当鼠标移动到图像的容器上时，您可以这样做，大概是表单本身。

但是在鼠标移动事件处理程序中加载图片就像 Andreas already explained 一样糟糕。

我可以提出一个替代方案吗？创建两个图像控件并将它们放在同一个位置。然后添加以下处理程序：

procedure TForm1.Image4AMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image4B.BringToFront;
  Image4B.Tag := 1;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Image4B.Tag = 1 then
  begin
    Image4B.Tag := 0;
    Image4A.BringToFront;
  end;
end;