안뇽하세요?
쓰래드에서여 Form1으로 가는 메세지를 PeekMessage를 사용해서 갖다쓸수 없을까요? 생각대로 다음과 같이 해보았는데요, 4203553의 메세지만 계속 날라오네여..ㅡ.ㅡ;; 고수님들의 가르침 부탁드릴께여..
procedure TMainThread.Execute;
var
msg: TMsg;
begin
while (not Terminated) and (FFlag) do
begin
PeekMessage(msg, Form1.Handle, 0, 0, PM_REMOVE);
case msg.message of
WM_SYSCOMMAND:
begin
Form1.Memo1.Lines.Add('MyMessage from Thread');
end;
MyMessage:
begin
Form1.Memo1.Lines.Add('MyMessage from Thread');
end;
end;
end;
end;