Komponente zur laufzeit ein onclick zuweisen

[zitruslimmonade]

halli hallo...
ich habe folgendes Problem, waerend der Laufzeit moechte ich eine unbestimmte anzahl von Panels erstellen lassen, denen will ich dann eine Onklick prozedur zuweisen, der ein parameter (eine id) uebergeben wird... die prozedur soll fur jde komponente die gleiche sein, nur halt mit unterschiedlichen ids... wie genau kann ich das aufrufen der prozedur realiseren ??, das erstellen der panels ist nicht das Problem.
Ein Beispielcode waer sehr nett.. danks schon mal im voraus...
gruesse
chris

[mkinzler]

IFs kannst du zawr in einer erreignisroutine nicht übergeben, du könntest aber die .tag-Eigenschaft des Panels für dies verwenden. Eine Referenz auf den Panel erhälst du ja über den Parameter Sender der Eventhandler-Methode.

[Angel4585]

und der zugehörige Code zu mkinzlers Beitrag:

Delphi-Quellcode:

procedure TForm1.PanelClick(Sender : TObject);
begin
case TPanel(Sender).Tag of
  0:;
  1:; 
  n:;
  else 
  end;
end;

Edit: Also ist nur das Grundgerüst.. kA was du genau machen willst...

[droppi]

zuerst musst du eine procedure oben anmelden. dann schreibst du die procedure,
du kannst mit sender
if sender is MyPanel then auf das/die panel zugreifen. bei formcreate schreibst du dann noch rein
MyPanel.OnClick:=procedurename;

[zitruslimmonade]

wenn ich das richtig versteh kann ich dem tag waerend dem erstellen der komponente einen wert zuweisen ??? so das ich diesen dan in der prozedure auswerten kann ???

[mkinzler]

Ja.

[zitruslimmonade]

perfektion...mein dank wird euch ewig hinterher schleichen...

gruss
chris