[ZikFred]

Допустим есть MessageBox с текстом и кнопкой Ок. Как сделать, чтобы по истечении времени (например 30 сек) если нет активности то нажималась кнопка? А обратный отсчет шел в заголовке окна или на кнопке рядом с Ок

[prv_89]

Берёшь таймер!!!
Ставишь условие:
Если таймер = 30 то действие которое стоит на кнопке !!!
(Я сам новичёк поэтому могу ошибатся !!!)

[ZikFred]

На словах та все просто, я и так понимаю что таймер нужен...

[prv_89]

Timer1.Interval := 30000; // 30000 это 30 сек
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ваше действие;
end;

[Karsh]

например так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     procedure OnTimer(Sender: TObject);   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   const   MsgCaption = 'Осталось %d секунд';   var   MyMsgDialog: TForm;   Sec: Integer;   procedure TForm1.OnTimer(Sender: TObject); begin   MyMsgDialog.Caption := Format(MsgCaption, [Sec]);   if Sec = 0 then MyMsgDialog.ModalResult:= ID_OK;   Dec(Sec); end;   procedure TForm1.Button1Click(Sender: TObject); var   Timer: TTimer; begin   // Создаем диалог   MyMsgDialog := CreateMessageDialog('   сообщение   ', mtInformation, [mbOk]);   // Создаем таймер   Timer := TTimer.Create(MyMsgDialog);   Timer.Enabled := False;   Sec:= 10; // 10 - это кол-во секунд до закрытия   with MyMsgDialog do   begin     try       Caption := '';       //Задаем параметры таймера       Timer.Enabled := True;       Timer.OnTimer := OnTimer;       OnTimer(Self);       // Показываем окно как модальное       case ShowModal of         ID_OK: ;       end;     finally       // Освобождаем переменные       Timer.Free;       Free;     end;   end; end;   end.

[ZikFred]

спасибо большое

[DimaLugansk]

Вот здесь всё очень подробно http://depositfiles.com/ru/files/5sf7siu10?redirect