Скачать: CL | DM;

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

← →
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]

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

---

← →
easy ©   (2006-07-25 10:56) [5]

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.048 c