이거 여기보면 있었던 예제인데 제가 지금 유용하게 잘쓰고 있습니다.

제 프로그램입니다. 참조하세요.



function FindForm(frmname: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := 0 to Application.ComponentCount - 1 do

begin

if Application.Components[i].Name = frmname then

begin

Result := True;

exit;

end;

end;

end;



procedure Tfrmmain.A01Click(Sender: TObject);

begin

if not FindForm('frmpm01') then

begin

frmpm01 := Tfrmpm01.Create(application);

frmpm01.show;

end

else

frmpm01.show;

end;





이수정 wrote:

> Form1 에서... 버튼을 눌러서..

>

> Form2.show 해서 보여 줍니다..

>

> 그러면, Form2의 작업을 종료하지 않고, 창을 닫지 않아도...

>

> Form1을 클릭해서 동작이 되는데...

>

> Form2를 닫아야만 Form1에서 동작이 되게끔 하려면 어떻게 해야 하는지요...??

>

>

form2를 모달형으로 생성시켜야 합니다.

어떻게 하나면..

uses절에 unit2(form2의 unit)를 포함시키고

폼2를 보여주는 곳에서 form2.show를 하지마시고

다음 구문을 적어주세요.

var

frmForm2 : TForm2;

begin

frmForm2 := TForm2.create(application or self<잘기억안남>);

frmFrom2.showmodal;로 하시면 됩니다.

if frmfrom2.modalresult = mrOK then

....................

frmFrom2.free;

...........

저한테 메일 보내주시면 제가 예제보내드릴께요..^^