Einzelnen Beitrag anzeigen

Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.800 Beiträge
 
Delphi 12 Athens
 
#2

AW: Formular zur Laufzeit gestalten

  Alt 5. Feb 2014, 16:36
Ich nehme an mit "zur Laufzeit gestalten" meinst Du die Komponenten zur Laufzeit erzeugen und setzen zu wollen. Dazu brauchst Du keine zweite Form.
Du benötigst lediglich in der Methode, die die Komponenten hinzufügen soll entsprechend ein Mal pro Komponententyp eine Variablendeklaration und dann tobst Du dich aus.
Also ungefähr:
Delphi-Quellcode:
procedure TForm1.ErzeugeKomponenten;
var einSlider: TAdvSmoothSlider;
    i: Integer;
begin
  for i := 1 to 5 do
  begin
    einSlider := TAdvSmoothSlider.Create(Self); // Damit gehört der Slider zur Instanz der TForm1 und wird beim zerstören selbiger mit freigegeben
    einSlider.Parent := Self; // Oder eben ein Panel wo das drauf liegt
    einSlider.Top := i*50 + 50; // Oder sonst irgendeine abgefahrene Mathematik zur Positionsbestimmung
    einSlider.Left := i*50 + 50; // siehe oben
    einSlider.OnStateChanged := StateChanged;
  end; // Mit jeden Durchlauf der Schleife wird ein neuer Slider erzeugt und auf die Form geklatscht...jeweils um 50 Pixel verschoben...oder so
end;
Das ist selbstverständlich noch ausbaufähig aber eine Grundlage. Du könntest Dir zum Beispiel noch eine Liste gönnen, in der Du die ganzen Slider Instanzen mitführst, um leichter auf sie zuzugreifen.

Sherlock
Oliver
Geändert von Sherlock (Morgen um 16:78 Uhr) Grund: Weil ich es kann
  Mit Zitat antworten Zitat