| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Таймер [D5, Win95/98]

Свой ©   (2002-07-17 15:34:00) 

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

---

Skier   (2002-07-17 15:38:00) [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;


---

Наверх