Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

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

 
Anna   (2007-05-17 10:31) [0]

Господа!
MessageDlg("Сообщение", mtError, mbOK, 0);
Подскажите, пожалуйста:
возможно автоматически закрыть сообщение?
как на кнопке сообщения показать колличество секунд до его автоматического закрытия? --> OK [30] --> OK [29] ...
Вместо mtError (и т.п.) можно показать свою картинку?


 
Amoeba ©   (2007-05-17 10:33) [1]


> Господа!
> MessageDlg("Сообщение", mtError, mbOK, 0);
> Подскажите, пожалуйста:
> возможно автоматически закрыть сообщение?

Нельзя.


 
Ega23 ©   (2007-05-17 10:53) [2]

Напиши свой диалог. Не вижу никаких проблем.


 
Leonid Troyanovsky ©   (2007-05-17 11:54) [3]


> Anna   (17.05.07 10:31)  

> как на кнопке сообщения показать колличество секунд до его
> автоматического закрытия? --> OK [30] --> OK [29] ...


type
 TForm1 = class(TForm)
   Button1: TButton;
   Timer1: TTimer;
   procedure Button1Click(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
 private
   { Private declarations }
   Timeout : Longint;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timeout := 10;
 Timer1.Enabled := True;
 MessageDlg("Welcome to my Object Pascal application.  Exit now?",
   mtConfirmation, [mbYes, mbNo], 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 b: TButton;
begin
  if Screen.ActiveForm.ClassNameIs("TMessageForm") then
    begin
       b := Screen.ActiveForm.FindComponent ("Yes") as TButton;
       dec(Timeout);
       if not Assigned(b) then
         begin
           (Sender as TTimer).Enabled := False;
           Exit;
         end;
         
       b.Caption :=  Format ("Yes [%d]", [Timeout]);
       if Timeout = 0 then
         Screen.ActiveForm.Close;
    end
  else
    (Sender as TTimer).Enabled := False;
end;


--
Regards, LVT.



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

Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.038 c
2-1179122080
RomanLN
2007-05-14 09:54
2007.06.03
как объеденить ячейки в StringGrid???


15-1178766009
Slider007
2007-05-10 07:00
2007.06.03
С днем рождения ! 9 мая


2-1179217468
voe
2007-05-15 12:24
2007.06.03
Проблемы с DBComboBox


2-1179023890
Valor
2007-05-13 06:38
2007.06.03
Список фалов..


15-1178184914
Marser
2007-05-03 13:35
2007.06.03
Воины Интернета - подробная классификация. Узнай себя ;-)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский