왕초보 wrote:

> 오늘 하룽 참 많은 것을 물어보네영!~~ 염치없이 스스로 해야 하느뎅 --+

>

> 하지만 몰라서 진짜로 몰라서 물어보는것이니 외면하지 마시고 알켜주세여

>

> 이번에는 마우스로 버튼을 누르면 아이콘 커서가 바뀌고(여기까지는 했음) 다시 폼을 누르면 원해 화살표 커서로 돌아오고(요기둥 했뜸) 누른위치에 이미지를 띄우는 것입니다.

> 안갈켜주면 미오할꼬에영!~~~~~~~~~~~~~~~~~~

>

> 꼭 부탁드립니다.!~~~~~~~~~~~~~~



제 짧은 소견으로...



uses extctrls;



procedure TForm1.FormClick(Sender: TObject);

var

img : TImage;

begin

img := TImage.Create(form1);

with img do begin

Visible := true;

Top := yy;

Left := xx;

Autosize := true;

Name := 'image1';

Parent := Form1;

end;

img.Picture.LoadFromFile('d:cdcash메인InitLog.bmp');



end;



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

Y: Integer);

begin

xx := x;

yy := y;

end;