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.