码迷,mamicode.com
首页 > 编程语言 > 详细

给线程发送消息让它执行不同的处理

时间:2015-06-06 20:46:16      阅读:132      评论:0      收藏:0      [点我收藏+]

标签:

unit Unit2;

interface

uses
System.Classes, Windows, Messages;

const
WM_DO = WM_USER + 1;

type
TDemoThread = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

implementation

{ TDemoThread }

procedure TDemoThread.Execute;
var
Msg: TMsg;
begin
{ Place thread code here }
while GetMessage(Msg, 0, 0, 0) do
begin
case Msg.message of
WM_DO:
; // do it
WM_CLOSE:
Break;
end;
Sleep(100);
end;

end;

给线程发送消息让它执行不同的处理

标签:

原文地址:http://www.cnblogs.com/plug/p/4557224.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!