이태수 wrote:

> delphi5.0을 가지고 프로그램을 개발하고 있는 중입니다.

>

> 근데, delphi를 자알 몰라서 여쭈어 보고자 합니다.

>

> 하고 싶은 것은 화면상에 이미지 그림이 있고,

>

> 그 그림에 마우스가 가면 다른 이미지로 전환되며,

>

> 이미지 영역을 마우스가 떠나면 원래의 이미지로 되었으면 합니다.

>

> 하는 방법을 모르겟군요.

>

> 아시는 분은 꼭 도와 주십시오.





이거는 제가 하는 방식인데..



다음과 같이 해보시기 바랍니다.



예전에 계산기만들때 쓴건데.



우선 바탕에는 마우스가 가기전그림을..



그 위에 마우스를 가져갔을때 생길 그림들을 놓고.



function InControl(x, y: integer; Control: TControl): boolean;

begin



Result := (Control.Top <= y) and (y < Control.Top + Control.Height) and

(Control.Left <= x) and (x < Control.Left + Control.Width);

end;





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

Y: Integer);

var

Parent: TControl;

begin

Parent := TControl(Sender).Parent;

if Parent <> nil then begin

x := TControl(Sender).Left + x;

y := TControl(Sender).Top + y;

end;

SB0.Visible := InControl(x, y, SB0);

SB1.Visible := InControl(x, y, SB1);

SB2.Visible := InControl(x, y, SB2);

SB3.Visible := InControl(x, y, SB3);

SB4.Visible := InControl(x, y, SB4);

SB5.Visible := InControl(x, y, SB5);

SB6.Visible := InControl(x, y, SB6);

SB7.Visible := InControl(x, y, SB7);

SB8.Visible := InControl(x, y, SB8);

SB9.Visible := InControl(x, y, SB9);

SBDot.Visible := InControl(x, y, SBDot);

SBP_M.Visible := InControl(x, y, SBP_M);

SBPlus.Visible := InControl(x, y, SBPlus);

SBEqul.Visible := InControl(x, y, SBEqul);

SBCe.Visible := InControl(x, y, SBCe);

SBMc.Visible := InControl(x, y, SBMc);

SBMr.Visible := InControl(x, y, SBMr);

SBMs.Visible := InControl(x, y, SBMs);

SBMPlus.Visible := InControl(x, y, SBMPlus);

SBSqrt.Visible := InControl(x, y, SBSqrt);

SBMulti.Visible := InControl(x, y, SBMulti);

SBPercent.Visible := InControl(x, y, SBPercent);

SBDiv.Visible := InControl(x, y, SBDiv);

SBHund.Visible := InControl(x, y, SBHund);

SBMinus.Visible := InControl(x, y, SBMinus);

end;





여기서 SB로 시작하는 것들은 그 마우스를 대었을때 나타내게될 그림이므로.



처음에는 visible를 false로 놓고 사용하시면 됩니다.

그럼 행복하십시요. 조규춘올림.