Timer nur in einer Unit zur Laufzeit erzeugen ??

[hm988]

hallo,

habt ihr zufällig ein Stück lauffähigen code wie ich einen Timer in eine Unit ohne Form einbauen kann,
ich hab schonmal einen Thread hier gefunden aber ich bekomm des nicht so richtig zum laufen.

oder hat einer ne Idee, des kann doch nit so schwer sein :wall: oder stelle ich mich zu dumm an :gruebel:

Danke für die Hilfe

[Manzoni]

Delphi-Quellcode:

uses ExtCtrls;

procedure Timer;
var Timer : TTimer;
begin
  Timer:=TTimer.Create(nil);
  Timer.OnTimer:= ;//hier muss eine procedure in TNotify-Form stehen (z.B. Timer1Timer(Sender: TObject);)
  Timer.Interval:=1000;
  Timer.Enabled:=true;
end;

wie willst du ihn genau verdenden?

[hm988]

sorry aber ich bekomm des nicht so ganz auf die Reihe mit der TNotify procedur,

bin noch nicht der hellste in Delphi, arbeite daran :coder: :roll:

ich habe einen Dienst (Windows Service) geschrieben, und der ist ohne Formular, ich brauche in dem Jetzt einen
Timer um die Zeit zu messen um später nach einer bestimmten Zeit das Formular anzuzeigen.

[Treffnix]

wie Manzoni schon geschrieben hat, ist ein TNotify Event eine Prozedur mit einen TObject als Parameter.

Bsp.

Delphi-Quellcode:

Procedure TimerEvent( Sender: TObject );
Begin
  // Tuwasimmerduwillst
End;

und die weist du dann dem OnTimer-Event zu:

Delphi-Quellcode:

[..]//s. Manzoni
Timer.OnTimer:= TimerEvent;
[..]//s. Manzoni

[hm988]

:wall: :wall: geht nicht :wall:

[Fehler] Unit1.pas(41): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

[Treffnix]

Zeig mal die Codestelle wos knallt! ( und ein bissl drumherum )

[Synonym]

eigentlich ganz einfach...


du erstellst oben im Kopf deine Procedure

z.b so...

Delphi-Quellcode:

procedure lala(Sender:Tobject); //<--Wichtig

und dann schreibst du deine Procedure

z.B.

Delphi-Quellcode:

procedure Tform1.lala(Sender:Tobject);
begin
ShowMessage('jo geht');
end;

jetzt brauchst du bei onTimer nur noch lala als Procedure angeben!

Synonym

[hm988]

also der Komplette Source

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TimerEvent(Sender: TObject);
begin
  form1.Caption := TimeToStr(Now);
end;


procedure Timer;
var Timer : TTimer;
begin
  Timer:=TTimer.Create(nil);
  Timer.OnTimer:=TimerEvent;//hier muss eine procedure in TNotify-Form stehen (z.B. Timer1Timer(Sender: TObject);)
  Timer.Interval:=1000;
  Timer.Enabled:=true;
end;

end.

irgendwie hab ich damit ein Prob, bitte kukt mal nach (für ganz dumme wie mich :oops: )

Danke

[hm988]

Delphi-Quellcode:

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

geht auch nicht [Fehler] Unit1.pas(36): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'
[Fehler] Unit1.pas(12): Ungenügende Forward- oder External-Deklaration: 'TForm1.TimerEvent'

[Treffnix]

Also... Erstmal sollte der Prozedurkopf unter das Private.
Dann musst du die Prozedur Timerevent auch dem Objekt TForm1 zuordnen. Also unten

Delphi-Quellcode:

procedure TForm1.TimerEvent(Sender: TObject);
begin
  form1.Caption := TimeToStr(Now);
end;

procedure TForm1.Timer;
...

Dann am besten noch im Kopf aus der Procedure ein TNotifyEvent machen. Also:

Delphi-Quellcode:

...
private
TimerEvent: TNotifyEvent;
public
...

Aber hattest du nicht gesagt, du willst das ohne Form machen? TForm ist doch ein Formular...