Einzelnen Beitrag anzeigen

weinberger

Registriert seit: 29. Jul 2009
Ort: Natternberg
26 Beiträge
 
Delphi XE3 Professional
 
#1

Fehler bei Erzeugung TTimer zur Laufzeit

  Alt 12. Jan 2021, 11:03
Hallo,

ich möchte eine TTimer-Komponente zur Laufzeit erzeugen und OnTimer zuweisen. Dabei bekomme ich die Folgende Fehlermeldung:

[dcc32 Fehler] Main1.pas(8041): E2010 Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Hier der Quelltext (Auszüge)

type
TMain = class(TForm)
.
.
.
procedure MyTimer(Sender: TObject);
.
.
.

implementation

uses ....



{$R *.DFM}
.
.
.
.

procedure TMain.MyTimer(Sender: TObject);
begin
MessageDlg('15Min um!', mtInformation, [mbOk], 0, mbOk);
end;

.
.
.

procedure TMain.BitBtn267Click(Sender: TObject);
var
edTimer: TTimer;
begin
//Timer mit 15 Min starten
if TTimer(FindComponent('Timer1')) = Nil then
begin
edTimer := TTimer.Create(Self);
edTimer.Enabled := False;
edTimer.Name := 'Timer1';
edTimer.Interval := 3240000;
edTimer.OnTimer := MyTimer(Self);
edTimer.Enabled := True;
end;
end;

Habe hier im Forum schon gesucht aber nichts brauchbares gefunden.
Kann mir da jemand helfen?
Rainer
  Mit Zitat antworten Zitat