Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

Таймер   Найти похожие ветки 

 
Свой ©   (2002-07-17 15:34) [0]

Приветствую всех !!!
Я делаю консольное приложение и мне надо в нем сделать чтобы было как если кидаеш таймер на форму каждые допустим 10 минут что то происходило как этого добиться ??


 
Skier ©   (2002-07-17 15:38) [1]

>Свой


TStupidClass = class
private
FTimer : TTimer;
protected
procedure MyOnTimer(Sender:TObject);
public
constructor Create;
destructor Destroy; override;
end;


{ TStupidClass }

constructor TStupidClass.Create;
begin
inherited Create;
FTimer := TTimer.Create(nil);
FTimer.Interval := 10000; //что пожелаешь...
FTimer.OnTimer := MyOnTimer;
end;

destructor TStupidClass.Destroy;
begin
FTimer.Enabled := False;
FTimer.Free;
FTimer := nil;
inherited Destroy;
end;

procedure TStupidClass.MyOnTimer(Sender: TObject);
begin
// your code goes here...
end;



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

Текущий архив: 2002.07.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
4-95615
MemoryLeak
2002-05-22 05:33
2002.07.29
Какой ф-цией пользуется TskMngr для завершения процессов?


1-95326
Skin
2002-07-17 22:37
2002.07.29
Timer


1-95405
SuperVK
2002-07-16 05:41
2002.07.29
Как в TStringGrid сделать выделение столбца?


1-95273
34634324
2002-07-15 14:10
2002.07.29
Как программно перезагрузить Windows XP?


14-95533
kull
2002-07-02 23:37
2002.07.29
Почему у Delphi скорость компиляции выше?