제가 질문하고 답하려니깐 숙스럼네요...
Inside Secretes Delphi 3이란 책을 봤는데요...
procedure TMDIAppFormMain.menuWareBookClick(Sender: TObject);
var
i: Integer;
exist: Boolean;
begin
exist := False;
for i:= 0 to MDIChildCount -1 do
if MDIChildren[i] is TFormBookManage then exist := True;
if exist = False then TFormBookManage.Create(Self);
end;
위와 같이 하니깐 되데요....
MDIChildCount에 MDI child 폼들이 카운터가 되어서 들어가더라구요.
그리고 폼마다 고유 번호가 들어가데요..
그래서 그 폼과 일치하는 폼형태를 찾으면 그냥 넘어가고요
일치하는 것이 없으면 TForm1.Create(Self) 하는거죠...
왕왕 초보자 올림.
씨이에쓰(steki)
|