var
Form1: TForm1;
i : integer;
begin
Application := ParentApplication; //넘겨받은 어플리케이션 할당함
for i := 0 to Application.MainForm.MDIChildCount - 1 do
if Application.MainForm.MDIChildren[i] is TForm1 then
begin
Application.MainForm.MDIChildren[i].SetFocus;
exit;
end;
if lHanDle = 0 then begin
Form1 := TForm1.Create(ParentForm);
Form1.Caption := IntToStr(lHanDle);
Form1.Show;
end;
이때 Form1, Form2, Form3 가 클래스가 틀려야 되고
단 1개의 폼만 실행 한다는 조건입니다.
Form1: TForm1;
i : integer;
begin
Application := ParentApplication; //넘겨받은 어플리케이션 할당함
for i := 0 to Application.MainForm.MDIChildCount - 1 do
if Application.MainForm.MDIChildren[i] is TForm1 then
begin
Application.MainForm.MDIChildren[i].SetFocus;
exit;
end;
if lHanDle = 0 then begin
Form1 := TForm1.Create(ParentForm);
Form1.Caption := IntToStr(lHanDle);
Form1.Show;
end;
이때 Form1, Form2, Form3 가 클래스가 틀려야 되고
단 1개의 폼만 실행 한다는 조건입니다.