showmessage

← →
bang (2004-08-31 18:47) [0]

Ув. мастера, как окно вызванное функцией showmessage() программно закрыть? Заранее спасибо! Извините если некорректно задан вопрос.

← →
GuAV © (2004-08-31 19:04) [1]

> вызванное функцией showmessage() программно закрыть?

Когда showmessage вернёт результат, окно уже будет закрыто.

> Извините если некорректно задан вопрос.

Может и корректно, но я не понял что надо.

← →
GuAV © (2004-08-31 19:05) [2]

точнее, никакого результата не вернёт она, т к это не функция, а процедура

← →
bang (2004-08-31 19:10) [3]

Надо чтоб окно вызванное showmessage() через, скажем, секунды три закрылось

← →
Gero © (2004-08-31 19:23) [4]

Написать свой ShowMessage.

← →
Synochka (2004-08-31 19:24) [5]

Перед ShowMessage включаешь таймер, который через 3 секунды закроет окно. Правда придётся повозиться с тем, чтобы определить его Handle. Но если найдёшь, то посылаешь WM_CLOSE, и задача решена.

← →
serg128 (2004-08-31 19:24) [6]

Никак. Т.к. оно открывается модально, а пока оно не закроется, программа дальше не пойдёт!

← →
bang (2004-08-31 19:30) [7]

А как насчет MessageDlg()?

← →
serg128 (2004-08-31 19:35) [8]

Так оно тоже результата пользователя будет ждать. Если сильно нада -> пишите своё окно, которое по интерфейсу сходно с ShowMessage(), а в нём творите что хотите.

Если через MessageBox, то можно послать сообщение на закрытие (WM_CLOSE) через хэндл, определяемый по FindWindow.

procedure TForm1.TimerTimer(Sender: TObject);
begin
((Sender as TTimer).Owner as TForm).Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var DisappearingMessage: TForm;
begin
DisappearingMessage := CreateMessageDialog(
"не закрывай - сам ищезну",mtCustom,[mbOk]);
try
with TTimer.Create(DisappearingMessage) do
begin
OnTimer:=TimerTimer;
Interval:=3*1000;
end;
DisappearingMessage.ShowModal;
finally
DisappearingMessage.Free;
end;
end;

showmessage Найти похожие ветки