Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.13;
Скачать: 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 вся ветка

Текущий архив: 2006.08.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.057 c
15-1152946131
SerJaNT
2006-07-15 10:48
2006.08.13
Мастерам JavaScript


15-1152872331
TohaNik
2006-07-14 14:18
2006.08.13
Ошибка в 1С-Бухгалтерии


2-1153839351
oleggar
2006-07-25 18:55
2006.08.13
BDE


15-1152854597
tButton
2006-07-14 09:23
2006.08.13
первый


2-1153923540
Dmitry_177
2006-07-26 18:19
2006.08.13
Клавиатурный шпион