Диалоговое окно с таймаутом

← →
novice (2006-07-25 09:40) [0]

Подскажите, пожалуйста, есть ли процедура или функция диалога типа (синтаксис произвольный) Message(MsgString, Buttons, Default, Timeout), т.е.,
чтобы диалог висел только заданное время, а по окончании таймаута возвращал значение по умолчанию (или, как вариант, ничего не возвращал)?

← →
PSPF2003 © (2006-07-25 09:57) [1]

Могу дать скачанный пример

← →
novice (2006-07-25 10:33) [2]

Было бы очень неплохо

← →
PSPF2003 © (2006-07-25 10:38) [3]

www.Pspf2003.narod.ru/TimedBox.rar

170286 Б

← →
novice (2006-07-25 10:52) [4]

Спасибо, скачал.

function MessageBoxTimeOutA(hWnd: HWND; lpText: PChar; lpCaption: PChar; uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall; external user32 name "MessageBoxTimeoutA";

....

procedure TForm1.Button1Click(Sender: TObject); begin MessageBoxTimeOutA(handle, "Test a timeout of 1 seconds.", "MessageBoxTimeout Test", MB_OKCANCEL or MB_ICONWARNING,0,1000); end;

← →
novice (2006-07-25 11:12) [6]

Первое - красиво, второе - просто. Спасибо.

Диалоговое окно с таймаутом Найти похожие ветки