델초 wrote:

> 이미지를 버튼처럼 쓰고 있는데 마우스가 그 위로 갔을 때만

> 그림을 바꾸고 그 영역을 벗어나면 다시 원래 그림으로

> 나타내려고 하는데 어떻게 해야합니까?



참고만 하세요.

마우스가 이미지위에 있을 때 특정한 작업을 수행하도록 하는 코드입니다.



procedure WndProc(var Message: TMessage); Override;

procedure ControlEnterLeave(Sender: TObject; Msg: Integer);

...



procedure TfrmMain.WndProc(var Message: TMessage);

begin

if Message.LParam = LongInt(imgEdit) then

ControlEnterLeave(imgEdit, Message.Msg);

inherited WndProc(Message);

end;



procedure TfrmMain.ControlEnterLeave(Sender: TObject; Msg: Integer);

begin

if Sender is TImage then begin

if Msg = CM_MOUSEENTER then (Sender as TImage).Stretch := True;

if Msg = CM_MOUSELEAVE then (Sender as TImage).Stretch := False;

end;

end;