請問哪位大老師遇到過這樣的問題？
ShowMessage彈出的提示框有時候會不顯示在最前端（偶爾遇到），導致軟體所有操作都動不了。反復兩次按鍵盤上的alt+tab組合鍵進行視窗切換又能顯示出提示視窗。
delphi7事件代碼如下：
if CheckBox1.Checked then
begin
ADOQueryTmp := nil;
ADOQueryTmp := TADOQuery.Create(ADOQueryTmp);
ADOQueryTmp.Connection := DM1.ADOConnection1;
dm1.ADOConnection1.BeginTrans;
try
s_sql:='update spbm2 set kcje=kcsl*cbjj ';
ADOQueryTmp.Close;
with ADOQueryTmp do
begin
SQL.Clear;
SQL.Add(s_sql);
ExecSQL;
end;
except
dm1.ADOConnection1.RollbackTrans;
ADOQueryTmp.Close;
ADOQueryTmp.Free;
ShowMessage('價值計算失敗！');
exit;
end;
//事務結束
dm1.ADOConnection1.CommitTrans;
ADOQueryTmp.Close;
ADOQueryTmp.Free;
ShowMessage('價值計算已完成！');
end;
uj5u.com熱心網友回復：
在showmessage前面加一行Application.ProcessMessagesuj5u.com熱心網友回復：
Application.MessageBox試一下。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/12710.html
標籤：VCL組件開發及應用