| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

novice ©   (2006-07-25 09:40:00) 

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

---

novice   (2006-07-25 11:12:00) [1]

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

---

easy   (2006-07-25 10:56:00) [2]

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 10:52:00) [3]

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

---

PSPF2003   (2006-07-25 10:38:00) [4]

www.Pspf2003.narod.ru/TimedBox.rar

170286 Б

---

novice   (2006-07-25 10:33:00) [5]

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

---

PSPF2003   (2006-07-25 09:57:00) [6]

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

---

Наверх