dynamischen Panels Ereignisse zuordnen

[TheAn00bis]

Hi, Frohe Ostern!

Überschrift sagt glaube ich alles: Ich will den "Panel1" bis "Panel192" die Prozedur "zuweisen" zuordnen, dafür habe ich im OnCreate der Form folgenden Code geschreiben:

Delphi-Quellcode:

for i:=1 to 192 do TPanel(FindComponent('Panel' + IntToStr(i))).OnClick:=zuweisen;

Jetzt kommt diese Fehlermeldung:

Zitat:

Inkompatible Typen: Liste der Parameter ist unterschiedlich

Habe die Suche benutzt, aber ich habe entweder nichts passendes gefunden oder es nicht verstanden.

[Nikolas]

Wie ist denn zuweisen deklariert?

[moritz]

Die Fehlermeldung deutet darauf hin, dass das Ereigenis, dass zu zuweisen willst, andere Paramtere übergibt, als die Funktion, die du zuweist, akzeptiert. Prüf das mal

[TheAn00bis]

Zitat:

Zitat von Toxman

Wie ist denn zuweisen deklariert?

Delphi-Quellcode:

TForm1 = class(TForm)
         procedure zuweisen;
         procedure FormCreate(Sender: TObject);

[...]

procedure TForm1.zuweisen;
begin
[...]
end;

Edit:

Zitat:

Zitat von moritz

Die Fehlermeldung deutet darauf hin, dass das Ereigenis, dass zu zuweisen willst, andere Paramtere übergibt, als die Funktion, die du zuweist, akzeptiert. Prüf das mal

Wie prüf ich das denn? :oops:


EDIT2:

Ach der Sender :D, danke hat sich erledigt:

( procedure zuweisen(Sender: TObject); )

[moritz]

OnClick erfordert eine Prozedur vom Typ TNotifyEvent:

Delphi-Quellcode:

type TNotifyEvent = procedure (Sender: TObject) of object;

Deine zuweisen-Prozedur muss also so aussehen:

Delphi-Quellcode:

TForm1 = class(TForm)
         procedure zuweisen(Sender: TObject);
         procedure FormCreate(Sender: TObject);

[...]

procedure TForm1.zuweisen(Sender: TObject);
begin
  ShowMessage(TPanel(Sender).Name); // So kommst du außerdem an den Namen des auslösenden
                                    // Panels. Mit TPanel(Sender) kannst du auf die Eigen-
                                    // schaften davon zugreifen. Du könnest zum Beispiel im
                                    // Tag des Panels eine ID speichern, etc.
end;

Gruß, Moritz

[TheAn00bis]

Super, danke Moritz! Genau danach wollte ich gerade Fragen! :))