TTimer ı Unit içinde kullanımı...

[sertkayasalih]

Herkese Merhaba,

- 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.

- Yukardaki kod diziliminde Zaman.OnTimer event ına Kontrol prosedürünü bağlamak istiyorum.

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

[hdayi]

Kod: Tümünü seç

    zaman:=TTimer.Create(Self);
    zaman.OnTimer:=Kontrol;

herhangi bir nesneyi creat ettikten sonra, olaylarına gerekli prosedürleri ataman gerek. Ancak şuna dikkat etmek lazım: prosedureleri çağırırken gönderilen parametreler uygun olmalı. Burada kullanmıyor olsan bile kontrol procedure'ünü çağırırken TObject türünden bir parametre göndermen lazım.
Yani:
Diyordum ki zaten öyle yapmışsın.
Kolay Gelsin...

[sertkayasalih]

Merhaba hdayi,

- Cevap ve ilgin için çok teşekkür ederim.

- Yazdığınız gibi uyguladım, netice başarılı oldu!