수고가 많으십니다.

다름이 아니오라,

어플리케이션에서 유저 디파인된 메세지를 받으려고 하는데,

보통 때에는 이상이 없다가 showmessage가 뜨거나

mainmenu가 선택이 되어 있으면 메세지를 받지 못하고 있습니다.

제가 만든 showmodal 폼이 떠 있을 때는 정상적으로 메세지를

받는데... 왜 얘들만 뜨면 못 받는 걸까요?

조속한 답변 부탁드립니다.

그럼...



procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

.

.

.

const

CTM_RECVCALL = WM_USER;

.

.

.





procedure TMAIN0F.FormCreate(Sender: TObject);

begin

Application.OnMessage := AppMessage;

end;



procedure TMAIN0F.AppMessage(var Msg: TMsg; var Handled: Boolean);

begin

if Msg.message = CTM_RECVCALL then

begin

showmessage('good work '+inttostr(msg.message)

+'+'+inttostr(msg.hwnd)

+'+'+inttostr(msg.wparam)

+'+'+inttostr(msg.lparam)

+'+'+inttostr(msg.time));

end;

end;