Timer während Laufzeit erstellen..

[Bryan]

Ich habe da was Interessantes gefunden tue mich aber ber der Umsetzung schwer
https://www.delphi-treff.de/object-p...ethodenzeiger/

[SneakyBagels]

Womit genau tust du dich schwer?

[Bryan]

Zitat von SneakyBagels:

Womit genau tust du dich schwer?

Ich habe das jetzt so gemacht wie im Beispiel es wird auch fehlerfrei kompiliert jedoch tut sich immernoch nichts...

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 }
  TimerEvent : procedure(Sender: TObject) of object;
  public
    { public declarations }
  end;

var
  Form1: TForm1;MyTimer:TTimer;

implementation

{$R *.lfm}

{ TForm1 }

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

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


end.

[Olli73]

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;
  MyTimer: TTimer;

implementation

{$R *.lfm}

{ TForm1 }

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

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


end.

[SneakyBagels]

Mach mal wieder alles rückgängig und bleib bei normalen Variablen bis du alle Grundlagen verstanden hast.

Nimm Olli73's Lösung bis du alle Grundlagen verstanden hast.
Das ist nicht böse gemeint, sondern soll einfach nur eine Hilfe sein.

[hoika]

Hallo,
wenn ich nicht weiss, wie die Timer-Methode aussehen muss,
lege ich einen Timer aufs Form, Doppelklick drauf und
voila
Methode + notwendige Parameter sind da.

Timer von Form wieder löschen und Methode habe ich im Kopf.

[himitsu]

Zitat von Bryan:

Ich habe das jetzt so gemacht wie im Beispiel es wird auch fehlerfrei kompiliert jedoch tut sich immernoch nichts...

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 }
  TimerEvent : procedure(Sender: TObject) of object;
  public
    { public declarations }
  end;

var
  Form1: TForm1;MyTimer:TTimer;

implementation

{$R *.lfm}

{ TForm1 }

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

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


end.

Ob nun selbstgemacht (TimerEvent : procedure(Sender: TObject) of object; ) oder vordefiniert (TimerEvent : TNotifyEvent; ), es kommt auf das Selbe raus und du hattest das doch schonmal, wo es auch schon nicht ging.

TimerEvent (das Feld/Variable) ist leer (nil) und somit wird auch "nichts" an OnTimer übergeben.

[Bryan]

Also ich weiß zwar nicht was ich mir da immer zusammengeschrieben habe jedoch dachte ich, dass ich Ollis Methode schon versucht hatte Wie sich dann herausgestellt hat war das nicht der Fall
Auf jeden Fall funktionierts jetzt wie es soll

Vielen Dank an alle die geantwortet haben

und für die, die es interessiert ich programmiere (bzw. versuche es) Bomberman und benutze die procedure für die Bomben

[SneakyBagels]

Zitat:

Also ich weiß zwar nicht was ich mir da immer zusammengeschrieben habe jedoch dachte ich, dass ich Ollis Methode schon versucht hatte Wie sich dann herausgestellt hat war das nicht der Fall

Die Lösung habe ich zwar schon in Beitrag #4 geschrieben, aber seis drum