高手在哪?
解决方案 »
- 新手交流贴,给firebird.FireBird的上下文变量,反映系统最近状况
- 刚换工作散分
- 数据库的设计问题?请求高手帮忙~~
- idhttp 提交asp.net 的问题 急在线等
- 如何实现当鼠标点击edit时,执行edit的OnKeyPress事件?
- 那个地方有interbase和pardax的ado驱动下载啊?
- 如何在程序中接收SQL存储过程的结果?
- 请教Ttimer控件的使用方法!
- delphi怎么访问一个DLL,急
- 急需解决的SQL问题,不然全完了,我只能给到79分?
- 写了一篇劝外行领导买Delphi的文章,各位看看。
- 高分!怎么把一个窗体中dbgrid的记录通过文本框传到另一个窗体的dbgrid1中呢?
while(true)
{
}
不就可以了吗?
在循环体中判断中断,break
begin
while not Terminated do //线程未结束则,比如你点程序的关闭按钮退出
DoSomeThing();
end;
procedure MyTh.Execute;
begin
//线程未结束则,比如你点程序的关闭按钮退出
while not Terminated do
begin
while Pause do
Application.ProcessMessages;
DoSomeThing();
end;
end;///在按钮的时间里加入 Pause := not Pause;
再execute里
var
msg:tmsg;
begin
while (not terminated)and getmessage(msg,0,0,0) do
begin
//在这里监测msg.message是不是特定消息,如果是,就处理,否则采用下面默认处理。
translatemessage(msg);
dispatchmessage(msg);
/////////////
end;
end;