Showmessage прячется

← →
Rat (2004-12-09 05:11) [0]

Допустим, выполняется долгая операция(напр хранимая процедура на SQL2000).
По окончанию Delphi должна выдать showmessage, что, типа, все закончено. Но часто бывает, что этот message "прячется" за форму,( и не поймешь, то ли все закончилось, то ли еще нет; приходится двигать форму, жать на Alt-Tab и все в таком духе)
Как сделать, чтоб не пряталась???
P.S.По-моему такое в осн происходит, когда во время выполнения этой операции юзер переключается на другие программы, а потом снова выбирает эту прогу.

← →
Игорь Шевченко © (2004-12-09 10:33) [1]

MessageBox ?

← →
ShotGuN © (2004-12-09 11:09) [2]

formStyle = fsMDIForm ???

← →
VMcL © (2004-12-09 12:30) [3]

>>Rat (09.12.04 05:11)

SetForegroundWindow(), SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT, ...)
?

Использовать API функции
Flags := Buttons + MsgIcon+ mb_TaskModal + ((DefaultButton and 7) shl 8);
Result := MessageBoxLng(Parent, MsgTitle, MsgText, Flags);

case Result of
IDYES: Result := mrYes;
IDNO: Result := mrNo;
IDOK: Result := mrOk;
IDCANCEL: Result := mrCancel;
IDAbort: Result := mrAbort;
IDIGNORE: Result := mrIgnore;
IDRETRY: Result := mrRetry;
end;

Showmessage прячется Найти похожие ветки