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

[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?

[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

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:
property OnTimer:= TNotifyEvent

und ja es ist ein Schulprojekt