Timer während Laufzeit erstellen..

[Bryan]

Hey Leute,
ich möchte einen Timer während der Laufzeit erstellen und in diesem eine Prozedur aufrufen. Habe jetzt schon auf mehreren Foren gesucht, jedoch funktionieren die Ansätze nicht so wirklich. Vielleicht hab ich ja einen Fehler gemacht:? Danke im Vorraus!

Hier mein Quelltext:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
TimerEvent: TNotifyEvent;
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
procedure TimerEvent(Sender: TObject);
begin
Form1.Caption:='erfolgreich';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MyTimer:TTimer;
begin
MyTimer:=TTimer.Create(Form1);
MyTimer.Interval:=100;
MyTimer.OnTimer:=TimerEvent;
MyTimer.Enabled:=True;
end;

[SneakyBagels]

Willkommen im Forum aber...
BITTE Delphi-Tags verwenden und Fehlermeldungen sagen!
Ließ dir die Fehlermeldung durch und dann sehen wir weiter.

Ans Forum: ich bitte euch höflichst nicht sofort Lösungen vorzutragen denn ein wenig Eigeninitiative muss auch sein!

[Bryan]

Also ich bekomme keine Fehlermeldungen angezeigt, jedoch tut sich nichts.
Sry aber ich weiß leider noch nicht was Delphi-Tags sind bzw. wie man sie benutzt :pale:

[SneakyBagels]

Du darfst TimerEvent (blöder Name übrigens) nicht als Event deklarieren sondern es muss als normale Prozedur deklariert sein

Delphi-Quellcode:

private
 procedure TimerEvent(Sender: TObject);

Unten dann dementsprechend

Delphi-Quellcode:

{ TForm1 }
procedure TForm1.TimerEvent(Sender: TObject);
begin
Form1.Caption:='erfolgreich';
end;

Woher du auch immer das mit dem TNotifyEvent hast, es ist falsch.

Delphi-Tags fügst du ein, indem du im erweiterten Editor auf den orange/roten-Helm klickst.

Frage nebenbei: ist das ein Schulprojekt? :P

[EWeiss]

Zitat:

Delphi-Tags fügst du ein, indem du im erweiterten Editor auf den orange/roten-Helm klickst.

Ich denke er fragt sich jetzt welcher erweiterter Editor und welcher Helm.

Mach doch ein Shot ;) So ist er nur am rumraten.

gruss

[Bryan]

Ok habs rausgefunden war gar nicht so schwer :stupid:

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
    procedure TimerEvent(Sender: TObject);
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.TimerEvent(Sender: TObject);
begin
Form1.Caption:='erfolgreich';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MyTimer:TTimer;
begin
MyTimer:=TTimer.Create(Form1);
MyTimer.Interval:=100;
MyTimer.OnTimer:=TimerEvent;
MyTimer.Enabled:=True;
end;

end.

Wenn ich es so mache wie du vorgeschlagen hast kommt folgende Fehlermeldung:

Delphi-Quellcode:

unit1.pas(44,18) Error: Wrong number of parameters specified for call to "TimerEvent"
unit1.pas(33,18) Error: Found declaration: TimerEvent(TObject);

kam unter anderem dadurch auf TNotifyEvent:

Delphi-Quellcode:

property  OnTimer:= TNotifyEvent

und ja es ist ein Schulprojekt:-D

[haentschman]

Hallöle...:P

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyTimer:TTimer;
begin
  MyTimer:=TTimer.Create(Form1);
  MyTimer.Interval:=100;
  MyTimer.OnTimer:=TimerEvent;
  MyTimer.Enabled:=True;
end;

Du willst ja was lernen...
1. Was passiert wenn du den Button mehrfach drückst?
2. Was passiert wenn du den Button mehrfach (innerhalb der 100ms :wink:) drückst? Es geht ja nur ums Prinzip. :stupid:

[SneakyBagels]

Zitat:

Wenn ich es so mache wie du vorgeschlagen hast kommt folgende Fehlermeldung:

Delphi-Quellcode:

unit1.pas(44,18) Error: Wrong number of parameters specified for call to "TimerEvent"
unit1.pas(33,18) Error: Found declaration: TimerEvent(TObject);

kam unter anderem dadurch auf TNotifyEvent:

Delphi-Quellcode:

property  OnTimer:= TNotifyEvent

Ist mir unverständlich. Liegt vielleicht an Lazurus?

[himitsu]

Zitat:

Zitat von SneakyBagels (Beitrag 1372413)

Ist mir unverständlich. Liegt vielleicht an Lazurus?

Nee, Lazarus hatte ja bei Delphi abgeguckt und nutzt haargenau die selbe Schnittstelle/Signatur.
http://wiki.freepascal.org/TTimer > http://lazarus-ccr.sourceforge.net/d...stomtimer.html

Delphi referenziert/dereferenziert Pointer oftmals automatisch/implizit.
Lazarus FPC wrd hier aber nicht in einem "Delphi"-kompatiblen Modus betrieben, da kann es eventuell sein, daß man sowas manuell/explizit machen muß.

Delphi-Quellcode:

MyTimer.OnTimer := @TimerEvent;

Die Meldung sagt schließlich auch

Zitat:

Wrong number of parameters specified for call to "TimerEvent"

, also will der Compiler diese Methode aufrufen und nicht deren Zeiger verwenden.

Zum Aufrufen fehlt logischer Weise ein Parameter:

Delphi-Quellcode:

MyTimer.OnTimer := TimerEvent(irgendwas);

, aber so kann nicht das gewünschte Ergebnis bei raus kommen.

Zitat:

Delphi-Quellcode:

Form1.Caption := 'erfolgreich';

MyTimer := TTimer.Create(Form1);

Und wer dir diese Verwendung der Variable "Form1" gezeigt hat, also innerhalb der TForm1-Klasse, der gehört ausgepeitscht.

Delphi-Quellcode:

Caption := 'erfolgreich';  // oder Self.Caption := 'erfolgreich';

MyTimer := TTimer.Create(Self);

[Bryan]

@haentschman das ist mir bewusst ich benutze den Button ja nur um herauszufinden ob es überhaupt funktioniert. Später will ich das per Tastendruck machen. Dann kann ich ja auch mehrere Timer erstellen ,die ich nach einem Intervall wieder lösche.