자료실에 이미지버튼 컴포넌트(ImageButton)올려 놓았습니다.

폼디자이너가 지저분하지도 않고 괜찮을 겁니다.



자라목 wrote:

> 두개의 이미지를 이용해서 마우스의 커서가 올라가면 그림이 바뀌게 하려고 합니다.

> 알고 계신분은 좀 알려주세요.

>

> 이미지1

> 이미지2

>

> 이미지1 --> 요기에 마우스 커서가 올라가면 이미지1이 가려지고 이미지2가 보이고

> 마우스의 커서가 이미지에서 벗어나면 다시 이미지1이 보이게 하려고 합니다.

> 알고계신분은 꼭좀 알려 주세요.

>

> (참고로 홈페이지에서 이미지 두개를 이용해서 onmouseover시 그림이 바뀌고, onmouseout시에 원래의 이미지로 바뀌는것과 같은 효과를 내려고 하는데......)

>

그쎄 이게 답이 될지는 ...

image2.visible 처음 속성은 false;



procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if (x>= image1.Left) and (x <= (image1.Left + image1.Width)) and

(y>= image1.top) and (y <= (image1.top + image1.Height))then

image2.Visible := true

else image2.Visible := false;

end;



procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

image2.visible := true;

end;





자라목 wrote:

> 두개의 이미지를 이용해서 마우스의 커서가 올라가면 그림이 바뀌게 하려고 합니다.

> 알고 계신분은 좀 알려주세요.

>

> 이미지1

> 이미지2

>

> 이미지1 --> 요기에 마우스 커서가 올라가면 이미지1이 가려지고 이미지2가 보이고

> 마우스의 커서가 이미지에서 벗어나면 다시 이미지1이 보이게 하려고 합니다.

> 알고계신분은 꼭좀 알려 주세요.

>

> (참고로 홈페이지에서 이미지 두개를 이용해서 onmouseover시 그림이 바뀌고, onmouseout시에 원래의 이미지로 바뀌는것과 같은 효과를 내려고 하는데......)

>