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
