請問各位先進: 如何做到滑鼠移出和移入時,可以變 換Image或SpeedButton的圖片呢?

saam您好:   您滑鼠移入移出的地方指的是那裡呢???    順心

SAAM: 你可以在 OnEnter 及OnExit 加入你要的動作 886

引言: 請問各位先進: 如何做到滑鼠移出和移入時,可以變 換Image或SpeedButton的圖片呢?

你可以使用ToolBar及2個ImageList元件就可以達到滑鼠移出和移入時,可以變 換Image的按鍵換圖的動作，只要將ToolBar屬性設定好即可。 ToolBar Properties設定如下： HotImages、Images指到ImageList1、ImageList2元件 Flat設為True ~小弟淺見，參考看看~

謝謝各位大大: 但是我找不到Image或SpeedButton元件裏的OnEnter及OnExit 事件,請各位大大再指導一下! 我是想在移出移入Image或SpeedButton等元件時可以變換他的圖 片.

你可以自訂元件來做到，我剛很快地寫了一個簡單的事範 : 1. 開一個新專案 2. 不用放任何東西，貼上以下程式碼取代Form1的程式碼 3. 改 Img.Picture.LoadFromFile('') 成你的 picture 4. 執行 5. 移動滑鼠進出 image 看 caption 變化 6. 改成你自己要的圖像變化 7. 你也可將 MyImage 寫在別的PAS 並加上 Register 程序安裝在元件盤中。    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;    type
  TMyImage = class(TImage)
  private
    FOver : Boolean;
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  end;      TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Img : TMyImage;
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    { TMyImage }    procedure TMyImage.CMMouseEnter(var Msg: TMessage);
begin
  if not FOver then
    Form1.Caption := 'Mouse Enter';
  FOver := true;
end;    procedure TMyImage.CMMouseLeave(var Msg: TMessage);
begin
  if FOver then
    Form1.Caption := 'Mouse Exit';
  FOver := false;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  Img := TMyImage.Create(self);
  Img.Parent := self;
  Img.Left := 0;
  Img.Top := 0;
  Img.Picture.LoadFromFile('D:\My Documents\My Pictures\Sample.jpg');
  Img.AutoSize := true;
end;    end.

發表人 - Justmade 於 2003/04/16 09:28:32

感謝Justmade 大大的指導: 我會了!感謝大家的指導,我會繼續努力 !