제가 할려고 하는 것은 MDI폼에서 Childform의 두번실행을 방지하기 위해서

function mc_existChildForm(childform.name :String; MDIform : Tform) : boolean;

var

i : integer;

begin

For i := 0 to MDIform.MDIChildCount-1 do begin

if MDIform.MdiChildren[i].name =childform.name then begin

result := true;

exit;

end

else

result := false;

end;

end;

라고 함수를 MDI unit가 아닌 다른 unit에서 정의 했습니다.

MDI form에서는 speedbutton을 통해서 실행을 하구요.

procedure TF_Main.SpeedButton1Click(Sender: TObject);

var

childform: Tchildform;

begin

if not mc_existChildForm(childform.name, mdiform) then

childform:= childform.Create(Self)

else

childform.Show;

end;

그런데



if MDIform.MdiChildren[i].name =childform.name then begin 부분에서 childform이

speedbutton으로 넘어옵니다.

그래서 childform을 pointer로 넘겨 주면 될거 같은데..

아니면, 다른 방법이라도..

고수님들의 부탁바랍니다.