如何交换显示图片呢?

Question

使用TIMAGE控件..如何实现若鼠标移到控件上显示一张图片,,离开时是另一张图片,,具体是如何写呢?请锡教!

Answer 1

可以在image.onmouseover和form.onmouseover事件中分别调用不同的图片

Answer 2

我没有做过，不过 ghchen() 说的好像有道理。

Answer 3

在image.onmouseover
image1.picture:='图片所在的位置';
但这样会出现什么类型错误啊..那应该怎样才行呢?

Answer 4

扩充一下IImage控件，发布两个方法：
unit ImageEx;interfaceuses
  SysUtils, Classes, Controls, ExtCtrls, Messages;type
  TImageEx = class(TImage)
  private
    { Private declarations }
    FOnMouseLeave: TNotifyEvent;
    FOnMouseEnter: TNotifyEvent;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('System', [TimageEx]);
end;{ TimageEx }procedure TimageEx.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;procedure TimageEx.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;end.
然后你就可以在OnMouseEnter、OnMouseLeave中写入交换图片的代码了

Answer 5

to: thirdapple(.:RNPA:.陨落雕-鍾意吊帶MM) 
Image1.LoadFromFile:='b.jpg'
像这句,为什么出错呢?to:weizi2000(秋风啊) 
能不能更具体一点呢?因为我是初学者..看不明你上面那些代码啊.

Answer 6

.pas控件你会装吧？我传到了www.xmflyfish.com/awind/Image.rar，还有Demo，你看一下