왕초보 wrote:

> 이은정님 답변은 감사합니다.!~~~ 꾸벅!~~~`

>

> 그런데 폼을 두번 클릭하면 이미 폼에 이미지가 존재한다면서 에러가 발생하거든여 아직 델파이를 한달반밖에 접해보지 못해서 이런 에러가 발생하면 어떻게 해야 할지 모르겠습니다. 앞에것둥 알려주셔서 감사합니다. 수고스럽지만 한번만 더 부탁드립니다.~~~~~

>

> 하수강!~~~



흠.......제가 답변해드리면 그것만 실행해 보구 응용은 안해보시는 군요...

조금만 생각하면 간단히 해결될 문제인데...

이제 부턴 먼저 생각해보구 시도해본담에 자기가 안돼겠다 싶을때 질문을 올리시는게 자기발전에 더 많은 도움이 되실꺼 같네요..

그럼 답변드리겠습니다..



우선 폼에 image컴포넌트 하나를 가져다 놓으시구요

폼 생성시 visible을 false로...

그런담에 폼클릭이벤트만 ....아래와 같이 수정해주심 됩니다..

제가 테스트해봤으니깐 잘 될꺼에요...

그럼~ 도움이 되시길...



procedure TForm1.FormClick(Sender: TObject);

begin

with image1 do begin

Visible := false;

Top := yy;

Left := xx;

autosize := true;

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

Visible := true;

end;

end;



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

Y: Integer);

begin

xx := x;

yy := y;

end;