在线程中怎样处理消息？谢谢大家！

[mmtang3]

谢谢!

[lxpbuaa]

线程自己必须建立消息队列；用PostThreadMessage给线程发送消息，用GetMessage 或者PeekMessage 检索消息。

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[lxpbuaa]

一个简单的例子：
unit Unit2;

interface

uses
Classes, Messages, Windows;

type
MyTh = class(TThread)
private
CanTermited: Boolean;
procedure NotificationWndProc(var Message: TMessage);
protected
procedure Execute; override;
public
MHandle: HWnd;
constructor Create(CreateSuspended: Boolean; CanRMemmage: Boolean = True);overload;
destructor Destroy;override;
end;

implementation


procedure MyTh.Execute;
begin
while not CanTermited do
end;

constructor MyTh.Create(CreateSuspended: Boolean; CanRMemmage: Boolean = True);
begin
inherited Create(CreateSuspended);
CanTermited := False;
if CanRMemmage then
begin
MHandle := Classes.AllocateHWnd(NotificationWndProc);
end;
end;

destructor MyTh.Destroy;
begin
if MHandle <> 0 then
Classes.DeallocateHWnd(MHandle);
inherited;
end;

procedure MyTh.NotificationWndProc(var Message: TMessage);
begin
CanTermited := Message.Msg = WM_CLOSE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MT := MyTh.Create(True, True);
MT.Priority := tpLower;
MT.Resume;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if PostMessage(MT.MHandle, WM_CLOSE, 0, 0) then
ShowMessage('succeeds');
end;
线程自己建立了一个不可见窗口用来接收消息，然后将消息发给这个窗口.

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[纯冰糖]

厉害，收了