김진호 wrote:

> 마우스가 버튼위로 왔을때 이미지가 바뀌도록 mousemove이벤트에 다음과 같이 설정을 했습니다.

>

> btnINSERT.Glyph.LoadFromFile('d:bbb.BMP');

>

> 그런데 버튼을 벗어나면 이미지가 원래의 것으로 돌아오도록 하려면 어떻게 해야 돼나요?



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, GIFImage, Buttons;



type

TForm1 = class(TForm)

Panel1: TPanel;

Image1: TImage;

SpeedButton1: TSpeedButton;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

OldMethod : TWndMethod;

procedure WndProc(var msg : Tmessage);

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}

procedure TForm1.WndProc(var msg : Tmessage);

begin

case msg.Msg of

CM_MOUSEENTER : SpeedButton1.Glyph.LoadFromFile('d:11.bmp');

CM_MOUSELEAVE : SpeedButton1.Glyph.LoadFromFile('d:12.bmp');

end;

OldMethod(Msg);



end;

procedure TForm1.FormCreate(Sender: TObject);

begin

OldMethod := SpeedButton1.WindowProc;

SpeedButton1.WindowProc := WndProc;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

SpeedButton1.WindowProc := OldMethod;

end;



end.



(^(oo)^)~ 돼지꿈 꾸세요...

김진호 wrote:

> 마우스가 버튼위로 왔을때 이미지가 바뀌도록 mousemove이벤트에 다음과 같이 설정을 했습니다.

>

> btnINSERT.Glyph.LoadFromFile('d:bbb.BMP');

>

> 그런데 버튼을 벗어나면 이미지가 원래의 것으로 돌아오도록 하려면 어떻게 해야 돼나요?



안녕하세요. 술친굽니다.



버튼이 올려져 있는 폼이나 패널의 mousemove이벤트에 버튼의 원래 이미지를 올리면

될것같군요..



도움이 되셨기를...

술친구였습니다.