초보자 wrote:

> MDI폼을 기본폼으로 데이터베이스 프로그램을 만들고 있습니다.

> 그런데 문제에 봉착했는데.. 바로 MDI폼에 있는 툴바에 관한 문제입니다.

> 오래전에 여기서 그 팁을 봤는데 이제는 없더군요..

>

> 질문의 요지는 MDI폼에 툴바가 있고 그 툴바에 등록 수정 삭제 버튼이 있습니다.

> CHILD폼은 여러개가 있구요.. 즉 MDI의 폼에 등록 버튼을 누르면 활성화 되어 있는

> CHILD폼에서 등록 작업이 이루어진다는 것입니다.

> 즉 각 CHILD폼에 등록 수정 삭제 버튼을 넣지 않고 MDI폼에서 모든게 이루어지도록

> 하고 싶습니다.

>

> 혹시 전에 가지고 있던 자료가 남아 있거나 혹은 그러한 기능을 구현하신 분들

> 조속한 답변 부탁드립니다. 그럼 이만...



안녕하세요.

사용자 정의 메세지를 만들어서 메인폼에서 날려보세요.



{공통상수}

const

MY_MESSAGE= WM_USER+100;

MM_SAVE = 1;



{메인폼}

procedure TMainForm.BtnSaveClick(Sender: TObject);

begin

SendMessage(MainForm.ActiveMDIChild.Hanlde, MY_MESSAGE, MM_SAVE, 0);

end;



{자식폼}

//선언부

procedure MyMessage(var msg: TMessage);message MY_MESSAGE;



//구현부

procedure TChildForm.MyMessage(var msg: TMessage);

begin

case msg.Wparam of

MM_SAVE: //저장

else

//기타할일

end;

end;



저의 경우는 이와같이 처리하는데 다른 분들은 어떻게 하는지 모르겠군요.

도움이 되시길...