- Değerli arkadaşlarım, TTimer bileşenini görsel olmayan ünit içersinde kullanmak istiyorum!
Kod: Tümünü seç
unit kontrol01;
interfase
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrls, ExtCtrls,uTumKontrol;
type Kont = class(TumKontrol)
private
......
public
Zaman : TTimer;
constructor Create; override;
destructor Destroy; override;
procedure ayarla;
procedure Kontrol(Sender: TObject);
...
end;
implementation
constructor Kont.Create;
begin
inherited Create;
Zaman := TTimer.Create(Self);
ayarla;
end;
destructor Kont.destroy;
begin
inherited Destroy;
Zaman.Free;
end;
procedure Kont.ayarla;
begin
Zaman.Interval := 1000;
Zaman.Enabled := False;
Zaman.OnTimer := Kontrol(???); // Burda hata veriyor.....
end;
procedure Kont.Kontrol(Sender: TObject);
begin
//...
end;
...
end.
Unit içerisinde görsel Form kullanılmadığı için ilk defa böyle bir durumla karşılaşıyorum.
Bir kaç deneme yaptım olmadı! Forumda arama yaptım, benzer konuya rastlamadım. Arama sonuçları hep TTimer ın Form üzerinde kullanımıyla ilgili.
- Yukardaki kod diziliminde Zaman.OnTimer event ına Kontrol prosedürünü bağlamak mümkün mü?
Yardımcı olan herkese çok teşekkür ederim
