procedure TApplication.HandleMessage;
begin
if not ProcessMessage then Idle;
end;ProcessMessage和Idle知道?
begin
if not ProcessMessage then Idle;
end;ProcessMessage和Idle知道?
解决方案 »
- delphi7程序,界面在win7中等字体设置下显示不正常
- 问个API CheckRadioButton ,是怎么使用的
- delphi+mysql 一下代码怎么会报错呢 ??很简单的问题,
- DBGrid中显示问题
- 兄弟们。N久没有解决的问题!C/S网络加密问题,高手请进世界性难题呀!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 两个ado查询.AdoQuery1查询出来的数据,如果把这个ADO的记录加入另一个ADO。
- 如何循环判断 listbox的值?
- 怎么实时得到当前客户端的连接数?
- socket控件
- 可以这样用query吗
- 大家都來看看吧﹗關于數據庫中記錄的成批復制問題﹗﹗
- DBGridEh.dcu,这是用了那个第三方控件?
var
Handled: Boolean;
Msg: TMsg;
begin
Result := False;
if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
begin
Result := True;
if Msg.Message <> WM_QUIT then
begin
Handled := False;
if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and
not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end
else
FTerminate := True;
end;
end;
ehom:再请教你一个问题:
程序创建一个Button,怎样让在点击这个button之前,程序暂停执行
repeat
Application.ProcessMessages;
until flag;
Application.ProcessMessages;
until flag;
这个循环我试过,它不能处理窗口关闭的消息。
这是为什么。