Timer zur Laufzeit erstellen und...

[Pseudemys Nelsoni]

...auf Timer.OnTimer reagieren.

hi ich weiss nicht wie ich den timer den ich zur laufzeit erstelle auch verwende, wie und wo kommt denn das Ontime event hin?

[Assarbad]

Timer := TTimer.Create ...

[Pseudemys Nelsoni]

huhu assarbad ;)

ich glaub du hast dich verlesen

Zitat:

hi ich weiss nicht wie ich den timer den ich zur laufzeit erstelle auch verwende

wie ich in erstelle weiss ich, nur nicht das ontimer eregnis...wie mach ich das?

[Assarbad]

Lag wohl an der (fehlenden) Kommasetzung.

Du mußt immer eine "procedure of object" (also Methode) deklarieren um sie dem OnTimer Event hinzuzufügen. Ich verstehe an dieser Stelle allerdings nicht, warum du nicht einen normalen Systemtimer mit Callback nimmst. Ist IMO einfacher zu handlen ...

Delphi-Quellcode:

type

     TMethod = procedure of object;
     TNotifyEvent = procedure(Sender: TObject) of object;

[Pseudemys Nelsoni]

hallo assarbad, danke für den code. Wie meinst du das mit systemtimer? sleep()?

[Assarbad]

Nope, SetTimer() und KillTimer()!

Systemtimer ist aber nicht ganz der richtige Ausdruck ;) ... war halt auf die Schnelle.

Der letzte Parameter von SetTimer ist der Pointer zu einer Callback-Funktion, welche aufgerufen wird, wenn der Timer seinen TImeout erreicht.

[Pseudemys Nelsoni]

danke, die 2 sachen guck ich mir mal genauer an ;)

[Luckie]

Las gut sein Assarbad.

@silent:
So geht's:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure MyTimerEvent(Sender: TObject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  ExtCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyTimer: TTimer;
begin
  MyTimer := TTimer.Create(self);
  MyTimer.Enabled := True;
  MyTimer.Interval := 1000;
  MyTimer.OnTimer := MyTimerEvent;
end;

procedure TForm1.MyTimerEvent(Sender: TObject);
begin
  Caption := TimeToStr(Time);
end;

[Pseudemys Nelsoni]

hallo luckie, das ist super, danke :)

ich hatte das erst mit "mytimer.ontimer do begin" versucht :mrgreen: