Panel mit Label dynamisch erzeugen

[hans ditter]

Hm, ja gut, dass hatte ich mir auch schon gedacht...
Es ging mir aber vor allem darum, wie ich die Panels untereinander angeordnet kriege. Also das wenn 4 Panels nebeneinander liegen, das nächste in der nächsten Reihe angezeigt wird usw.

[stahli]

Was ist denn Dein Problem?
X zählst Du jeweils hoch für die X-Position und weist das Left zu.
Nach 4 mal setzt Du X auf 0 und Zählst Y (für Top) hoch.

Alternativ kannst Du auch Panels als "Zeilen" hinzufügen und diese auf alTop setzen.
In jede "Zeile" fügst Du dann 4 Zellen mit alLeft ein.

[hans ditter]

hm, ja, weiß auch nicht, stand wohl ziemlich auf dem Schlauch...
Hat auf jeden Fall funktioniert, jetzt hat sich aber das nächste Probelm ergeben.
Wie bearbeite ich jetzt eine OnClick bzw. OnDblClick Methode des dynamisch erzeugten Panels?

LG, hans ditter

[stahli]

Du kannst einfach Deiner Form eine "Dummy-Behandlung" hinzufügen. Also mal ein Panel anlegen und die Behandlungen definieren. Das Panel kannst Du dann unsichtbar machen oder löschen.

Deinen dynamischen Panels kannst Du die Ereignisbehandlungen dann einfach zuweisen:
APanel.OnClick := Form1.DummyPanelOnClick; In der Variable Sender erhältst Du dann das Panel, für das das Ereignis ausgelöst wurde.

if Sender is TPanel then with (Sender as TPanel) do ...

[xZise]

Ist das Form1 wirklich notwendig? Ich empfehle das einfach nicht mit zu kopieren. Das funktioniert so auch und ist „sicherer“.

MfG Fabian

[hans ditter]

Vielen Dank erstmal, für die hilfreichen Antworten.
Aber @Stahli,
das mit dem Sender hab ich noch nicht ganz verstanden. Also du sprichst von der Variable Sender in der Dummy Methode? Und was sagt dir mir jetzt oder muss ich der jetzt sagen?
Wenn du mir da nochmal helfen könntest, wäre das super.

LG, hans ditter

[stahli]

Ich setze mal voraus, dass Du eine Ereignisbehandlung beherrscht (z.B. OnButtonClick).
Darin führst Du ja dann den Code aus.
Wenn Du DIE EINE Behandlung allen Deinen Panels zuweist, musst Du ermitteln, von welchem Panel dieses Ereignis ausgelöst wurde.

if (Sender is TPanel) then with (Sender as TPanel).Color := clRed; kannst Du das auslösende Panel rot färben.

[mkinzler]

Wobei man dann das with weglassen kann

[stahli]

Oh ja, klar, ich wollte erst einen begin-end-Block verwenden...