- 보내는 통신규약은 아래와 같다고 가정.
SendMessage(FindWindow(nil, 'frmDebug'), WM_USER+123, 0, lParam(LongInt(메세지)));
혹은 PostMessage
 
 
 
 
 
1. TApplicationEvents 이용.
 
1. 폼에디터에 TApplicationEvents 를 하나 박아넣음.
2. 박아넣은 TApplicationEvents 의 OnMessage 함수를 만든다. 아래와 같은 모양으로.
 
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  if Msg.message=WM_USER+123 then begin
    Memo1.Lines.Add(PChar(Msg.lParam));
  end;
end;
3. 특징
  - F1 을 눌러서 헬프를 보면 알 수 있지만, SendMessage 로 보낸 건 못받아먹음. PostMessage 로 해야 함.
 
 
 
 
 
2. 메세지별 이벤트 핸들러 이용.
 
- 각 메세지별 이벤트 핸들러를 만든다. 아래의 모양으로.
 
<선언부>
procedure WM_USER123(var MSG: TMessage); message WM_USER+123;
 
<구현부>
procedure TForm1.WM_USER123(var MSG: TMessage);
begin
  Memo1.Lines.Add(PChar(MSG.LParam));
end;
 
 
 
 
 
3. TForm 의 WndProc 을 오버라이딩해서 사용하는 방법.
 
- 아래와 같은 모양으로 구성.
 
<선언부>
procedure WndProc(var Message: TMessage); override;
 
<구현부>
procedure TForm1.WndProc(var Message: TMessage);
begin
  if Message.Msg=WM_USER+123 then begin
    Memo1.Lines.Add(PChar(Message.LParam));
  end;
 
  inherited;
end;







Posted by bloodguy

댓글을 달아 주세요