onTimer Problem

[Chris P]

Hi leute, ich will eine laufschrift-komponenete entwicklen. Ich habe mir einen timer erzeugt,
aber wie kann ich auf onTimer zugreifen?

Delphi-Quellcode:

procedure TMarquee.Move;
begin
        // mach irgendwas
end;

constructor TMarquee.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   FTimer := TTimer.Create(AOwner);
   FTimer.onTimer := Move; // hier kommt eine Fehlermeldung
end;

wo liegt der fehler?

[Matze]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure myTimerTimer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  myTimer : TTimer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  myTimer := TTimer.Create(self);
  myTimer.OnTimer := myTimerTimer;
end;

procedure TForm1.myTimerTimer(Sender: TObject);
begin

  //Code

end;

end.

Nachtrag: Herzlich willkommen in der DP!

[Matze]

Achja, musst du den Timer dynamisch erstellen?

Wenn nicht, dann zieh ihn doch auf's Formular, falls es nur eine oder 2 Laufschriften sind.

[Chris P]

Der Timer soll dyn. erstellt werden... Warum kommt eine Fehlermeldung bei onTimer

[Matze]

Hast du Move über private deklariert?

Edir: Die Klammer: (Sender: TObject) muss auch noch hin.

[fkerber]

Hi!

Welche Fehlermeldung kommt denn?

Ciao fkerber

[Chris P]

Liste der Parameter ist unterschiedlich

[Chris P]

ja ich hab MOVE privat deklariert

[c113plpbr]

So sollte es funktionieren

Code:

@FTimer.onTimer := @Move;

Leider werden dabei keine weiteren argumente übergeben.

[Chris P]

Vielen Dank Matze, das mit (Sender: TObject) hat gefunzt...