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
[6273] [답변] TOPVEL/ MDI APPLICATION에서 MDI FORM과 MDI CH
kk9722 [ ] 739 읽음    1999-06-10 17:19
음 .. 문제해결 방법에는 여러가지가 있겠지요..
저도 그문제를 가지고 고민을 했었는데요..
나름 대로 도움이될수 있을까 해서 몇자 적어봅니다.
일단 MDIChild Form은 Tform에서 상속을 받아 쓰지요
그래서 메인 툴바에서 조회버튼이 눌렸을 경우 해당 Active 폼의 조회
프로시져를 호출할 수 있는 방법은 따로 없을 겁니다.
그런데 MDIChild라는 새로운 폼을 만들어 쓰면 문제가 해결될 꺼에요
Tform 에서 상속받은 Class TMDIchild를 선언한후
조회,입력 수정 삭제시 실행되는 메소드를 추가한후
Child폼을 만들때 form1 : class(Tform)을
form1 : class(TMdichild)라고 선언하면 간단하죠
참고로 MDI childClass의 형태를 적어보면 다음과 같습니다.
type
  TfMDIChild = class(TForm)
  public
    { Public declarations }
    procedure lp_Insert; virtual;
//입력버튼이 눌렸을때 차일드폼에 호출할 차일드 폼의 입력 프로시져
    procedure lp_Update; virtual;
//수정버튼이 눌렸을때 차일드폼에 호출할 차일드 폼의 입력 프로시져
    procedure lp_Save;   virtual;
//저장버튼이 눌렸을때 차일드폼에 호출할 차일드 폼의 저장 프로시져
    procedure lp_Delete; virtual;
//삭제버튼이 눌렸을때 차일드폼에 호출할 차일드 폼의 삭제 프로시져
    procedure lp_Cancel; virtual;
  end;
implementation
//{$R *.DFM} 주석문은 제거 하셔야 합니다.
procedure TfMDIChild.lp_Insert;
begin
{Insert Command}
end;
procedure TfMDIChild.lp_Update;
begin
{Update Command}
end;
procedure TfMDIChild.lp_Save;
begin
{Save Command}
end;
procedure TfMDIChild.lp_Delete;
begin
{Delete Command}
end;
procedure TfMDIChild.lp_Cancel;
begin

{Cancel Command}
end;
end.
이렇게 공통모듈을 하나 만드신후
차일드 폼을 만드실때마다
  TfrmMyChild = class(TfMDIChild)

라고 선언 하신후 해당 메소드의 소스내용을 적어주시면
MDI Main폼의 조회버튼 클릭이벤트에 다음과 같이 적어주시면됩니다.
ActiveChild.lp_Serch //음 위 소스에는 조회프로시져를 선언하지 않았군요.

입력을하시려면
ActiveChild.lp_Insert라고 하시면 간단하죠

막바로 치다 보니까 설명이 좀 엉성한것 같군요
자세한 것은 KK9722@chollian.net으로 메일 주시면 가르쳐 드리겠습니다.

좋은 하루 되십시요.
-코리_



+ -

관련 글 리스트
6273 [답변] TOPVEL/ MDI APPLICATION에서 MDI FORM과 MDI CH kk9722 739 1999/06/10
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.