Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[1110] [해결] 1115..MDI Child 중복생성
steki [ ] 1999 읽음    1998-02-05 21:45

제가 질문하고 답하려니깐 숙스럼네요...
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)


+ -

관련 글 리스트
1110 [해결] 1115..MDI Child 중복생성 steki 1999 1998/02/05
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.