선용 wrote:

> 아시는 분이 계시면 좀 알려주세요.....

>

> 델파이의 초보자 입니다...

>

> 버튼이나 이미지에서 마우스의 버튼을 갖다대면 버튼이나 이미지의 그림이

> 자동으로 변하게 하려고 하는데 어떻게 해야 되는지 어떤 컴포넌트를 써야

> 하는지 좀 알려주시면 갑사하

답변 감사합니다.

그런데 마우스가 버튼위에 있으면 그림이나 캡션이 변하는데 마우스가

다른곳으로 이등하면 원래의 내용이 되돌아 오지 않는군요...



버튼이나 이미지에서 마우스가 버튼이나 이미지의 위로가면 그림이나 글씨가

바뀌고 다른곳으로 이동하면 원래의 그림이나 글씨가 나오는 기능을 구현하려

합니다.

그러니까 하나의 버튼에 이미지를 3개 연결해서 보통일때, 마우스가위에있을때,

버튼을눌렀을때 이렇게 3가지 기능을 구현하려 합니다.

어떻게 구현하는지 아시는분은 답변 바랍니다....







방기남 wrote:

> 선용 wrote:

> > 아시는 분이 계시면 좀 알려주세요.....

> >

> > 델파이의 초보자 입니다...

> >

> > 버튼이나 이미지에서 마우스의 버튼을 갖다대면 버튼이나 이미지의 그림이

> > 자동으로 변하게 하려고 하는데 어떻게 해야 되는지 어떤 컴포넌트를 써야

> > 하는지 좀 알려주시면 갑사하

unit Unit1;



interface



uses

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

StdCtrls, ExtCtrls, GIFImage;



type

TForm1 = class(TForm)

Panel1: TPanel;

Image1: TImage;

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 : Image1.Picture.LoadFromFile('c:image1.jpg');

CM_MOUSELEAVE : Image1.Picture.LoadFromFile('c:image2.jpg');

end;

OldMethod(Msg);



end;

procedure TForm1.FormCreate(Sender: TObject);

begin

OldMethod := Image1.WindowProc;

Image1.WindowProc := WndProc;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

Image1.WindowProc := OldMethod;

end;



end.



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