[Delphi6] закрыть message box
Здравствуйте!
Очень важная проблема:
каким образом можно программно закрыть message box(окошко с
инофрмацией)?
То есть идея такова: например при нажатии на кнопку выскакивает это
сообщение, потом оно тут же закрывается, чтобы это было невидно
пользователю?
Вот код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Hello');
{что нужно вставить тут чтобы сообщение Hello тут же закрылось?}
end;
Заголовок этого message box известен.
Очень надеюсь на вашу помощь, так как вопрос и в самом деле очень
важный для меня.
Доброго времени суток, keel.
Вы писали 10 марта 2004 г., 20:20:48
на тему "[Delphi6] закрыть message box"
procedure PressKey (key : integer);
begin
keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Hello');
PressKey (VK_ENTER);
end;
З.Ы. Сам не пробовал, по памяти писал. Если не будет работать, пиши.
* В мире нет вечных двигателей, зато есть вечные тормоза