AW: Panel mit Label dynamisch erzeugen
Hm, ja gut, dass hatte ich mir auch schon gedacht... :P
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. |
AW: Panel mit Label dynamisch erzeugen
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. |
AW: Panel mit Label dynamisch erzeugen
hm, ja, weiß auch nicht, stand wohl ziemlich auf dem Schlauch...:oops::stupid:
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 |
AW: Panel mit Label dynamisch erzeugen
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:
Delphi-Quellcode:
In der Variable Sender erhältst Du dann das Panel, für das das Ereignis ausgelöst wurde.
APanel.OnClick := Form1.DummyPanelOnClick;
Delphi-Quellcode:
if Sender is TPanel then with (Sender as TPanel) do ...
|
AW: Panel mit Label dynamisch erzeugen
Ist das Form1 wirklich notwendig? Ich empfehle das einfach nicht mit zu kopieren. Das funktioniert so auch und ist „sicherer“.
MfG Fabian |
AW: Panel mit Label dynamisch erzeugen
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 |
AW: Panel mit Label dynamisch erzeugen
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.
Delphi-Quellcode:
kannst Du das auslösende Panel rot färben.
if (Sender is TPanel) then with (Sender as TPanel).Color := clRed;
|
AW: Panel mit Label dynamisch erzeugen
Wobei man dann das with weglassen kann
|
AW: Panel mit Label dynamisch erzeugen
Oh ja, klar, ich wollte erst einen begin-end-Block verwenden...
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz