Скачать: CL | DM;

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(), а в нём творите что хотите.

---

← →
OSokin ©   (2004-08-31 20:20) [9]

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

---

← →
GuAV ©   (2004-08-31 20:35) [10]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.029 c