안녕하세요..델피언입니다.



음~일단 mdichild라면 visible 이 true로 되어 있을겁니다.

Application.Createform(Tform2,form2) ;

form2.visible := false;

form2.showmodal ;

이렇게 하면 실행이 될거구여..

modalresult 는 이런식으로 합니다.



with form2 do begin

form2 := Tform2.Create(Self);

try

ShowModal;

finally

if ModalResult = mrOK then begin

//필요한 코드

end;

free;

end;

end;



행복하세요...





질문맨 wrote:

> main 폼에서 아래와 같이 test하면 전혀 문제가 없군요...

>

> 근데,

> 현재 mdichild 폼에서 dialog 폼을 띄우려고 하거든요...

> 혹시 main 이 아닌 mdichild 폼에서 dialog 폼을 아래와 코딩했을 때 문제가 되는지

> 궁금하군요..

>

> Form2.Showmodal ; 여기서 "Cannot make a visible window modal" error가 나거든요...

>

> 그리고, modalresult 값을 check 하는 방법도 있다는데...

>

> 가르쳐 주세요....

>

> procedure TForm1.Button2Click(Sender: TObject);

> begin

> Application.Createform(Tform2,form2) ;

> form2.showmodal ;

> end;

>

>

> procedure TForm2.TreeView1DblClick(Sender: TObject);

> begin

> form1.Edit1.Text := TreeView1.Selected.Text ;

> close ;

> end;