이상림 wrote:

> 질문 소스

> SendMessage( ActiveMDIChild.Handle, WM_USER + 100, TToolButton(Sender).Tag, 0);

>

> 질문 내용

> MDIChild 폼을 연 후에,

> 부모폼에서 NEW, SAVE 등의 ToolButton을 누르면 자식폼에 메시지를 전달해서 자식폼에서 받아 쓰려고 하는데요.

> 위처럼 보내면 되나요?

> 그리고 그보다 더 급한건.

> 자식폼에서 그 메시지를 어떻게 받아서 쓰나요?

> 넘 어렵고 개념 잡기도 힘들어요. ㅠㅠ

> 오늘 하루종일 이것때문에 싸우다가 안되서 여기에 올려봅니다.

> 꼭 좋은 해답 부탁드려요.



안녕하세요?

메세지 보내는 부분은 님이 하는 식으로 하시면 됩니다.



자식폼에서 받는 부분은

procudure WMMyMessage(var: TMessage); message WM_USER+100;

와 같이 선언하구요.(WM_USER+100이란 사용자 정의 메세지가 들어오면 어떻게 처리하겠다고 하는 것이죠.)



구현부에는 아래와 같이 처리하시면 됩니다.

procedure TChildForm.WMMyMessage(var: TMessage);

begin

case Message.LParam of

1: ShowMessage('어쩌구 저쩌구');

2: ShowMessage('얼레리 꼴레리');

else

ShowMessage('굼시렁 굼시렁');

end;