AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Fehler bei Erzeugung TTimer zur Laufzeit

Ein Thema von weinberger · begonnen am 12. Jan 2021 · letzter Beitrag vom 13. Jan 2021
 
weinberger

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

Fehler bei Erzeugung TTimer zur Laufzeit

  Alt 12. Jan 2021, 10: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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz