Hallo zusammen,
Delphi-Quellcode:
SetLength(CaptionPanelArray, i);
for i:=0 to 10 do
begin
//Panel erzeugen
CaptionPanelArray[i] := TJvCaptionPanel.Create(Self);
CaptionPanelArray[i].CaptionPosition := dptop;
CaptionPanelArray[i].Height := 200;
CaptionPanelArray[i].Width := 300;
CaptionPanelArray[i].DragMode := dmAutomatic;
CaptionPanelArray[i].Color := clwhite;
CaptionPanelArray[i].Parent := Form1;
CaptionPanelArray[i].Top := 10;
CaptionPanelArray[i].Left := 10;
CaptionPanelArray[i].left := 10 + ((CaptionPanelArray[i].width + 10) * i);
end;
Mit diesem Code erzeuge ich dynamisch Panels, die später mit Kontaktinformationen gefüllt werden sollen.
Das Problem ist, dass ich es nicht hinbekomme mehrer Zeilen zu erzeugen, wenn der rechte Rand des Formulars erreicht ist, soll eine neue Zeile eröffnet werden. Wie z.B. in Outlook Kontakte. Momentan liegt alles in einer Zeile. (Siehe Bild im Anhang)
Die Anzahl der Panels ist später von der Anzahl der Datensätze abhängig. Labels zur Datenanzeigen in dem Panel werden schon erzeugt, sind aber hier in dem Code nicht zu sehen.
Hat jemand eine Idee?
Für die Hilfe und Unterstützung bedanke ich mich.
LG
Roland