|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблема мне нужно закрыть messagebox по истечению некоторого времени
полазил по инету , готовых решении не нашел . КТо упоминал про компонент , но он в отсутствии ... Помогите решить задачу .
|
#2
|
||||
|
||||
А что если самому создать форму с сообщением, на форму бросить таймер. Задать этому таймеру время и потом закрывать данную форму. Или можно программно нажать на кнопку Messagebox'а по окончанию времени таймера
Пишешь это в таймере: Код:
SendMessage(Хэндл кнопки Messagebox'а, BM_SETSTATE, 1, 0); Sleep(100); SendMessage(Хэндл кнопки Messagebox'а, BM_SETSTATE, 0, 0); Программирование - это искусство и наш смысл жизни. Последний раз редактировалось moo2k, 01.12.2007 в 14:55. |
#3
|
||||
|
||||
Можно находить в системе окно мессаджбокса и посылать по таймеру ему сообщение WM_CLOSE.
Код:
procedure TForm1.Timer1Timer(Sender: TObject); var wnd : HWND; begin wnd := FindWindow('#32770', 'ЗАГОЛОВОК_ТВОЕГО_МЕССАДЖБОКСА'); if wnd <> 0 then SendMessage(wnd, WM_CLOSE, 0, 0); end; Не профи, но и не чайник . D6 - лучше не придумали. Пока. |