Objekte zur Laufzeit erzeugen

[Dejan Vu]

Was hält dich davon ab, im OnResize einfach deine Controls programmtechnisch neu auszurichten? Das machst Du doch am, Anfang auch?

[Luki206]

Ja nur weiß ich nicht wie ich auf die Buttons wieder zugreifen soll.. Über die objectlist weiß ich nicht wie ich auf die Buttons zugreife.

[Aviator]

Du kannst entweder den Buttons beim Erstellen einen Namen geben (was sinnvoll wäre) oder immer durch die Komponenten der Form laufen und den Button entsprechend suchen. FindComponent bringt dir an der Stelle nix, da du keine Namen vergeben hast.

[himitsu]

Oder wie wäre es, wenn du die Buttons in andere Komponenten reinpackst?

- Diese kann man dann mit Anchor/Align ausrichten
- oder man nimmt ausrichtende Komponenten (TFlowPanel/TGridPanel)
- ...

[Captnemo]

Delphi-Quellcode:

for i:= 0 to FButtons.count-1 do
Beginn
  FButtons[i].left:=10; //oder was auch immer
  fButtons[i].top:=10; //ist ja nur ein Bespiel
End;

Ist doch eine Objectlist wenn ich das richtig gesehen.

[Perlsau]

Zitat:

Zitat von Luki206 (Beitrag 1263185)

Ich muss mich hier noch einmal melden :hi: Jetzt stehe ich vor dem Problem das wenn ich die Form resizee bleiben die Buttons so in der Scrollbox wie sie auch erstellt wurden. Wie könnte ich es schaffen sie auszurichten ohne das sie ständig neu generiert werden müssen?

Wenn du deine visuellen Objekte in einer Objektliste verwaltest, mußt du doch nur die Objektliste durchgehen und die Position der Objekte neu berechnen. Ich mache das in meiner HTML-Template-Verwaltung eigentlich ganz einfach:

Delphi-Quellcode:

Function TVorschau.ZeichneBilder : Boolean;
Var
  x,y,
  i,z : Integer;
  Obj : TBild;

begin
  x := Allg.Bild_Abstand;
  y := Allg.Bild_Abstand;
  z := BList.Count;

  Try
    IF z > 0 THEN
    FOR i := 0 TO z-1 DO
    BEGIN
      Obj                   := BList[i];
      Obj.Bild.Left         := x;
      Obj.Bild.Top          := y;
      Obj.Bild.Width        := Allg.Bild_Breite;
      Obj.Bild.Height       := Allg.Bild_Hoehe;
      Obj.Bild.Visible      := True;

      Obj.Titel.Font        := VPanel.Font;
      Obj.Titel.Color       := Allg.BildTitel_Farbe;
      Obj.Titel.Width       := Allg.Bild_Breite;
      Obj.Titel.Height      := Allg.BildTitel_Hoehe;
      Obj.Titel.Left        := Obj.Bild.Left;
      Obj.Titel.Top         := Obj.Bild.Top + Allg.Bild_Hoehe;
      Obj.Titel.ShowHint    := True;
      Obj.Titel.Visible     := True;

      x := x + Allg.Bild_Breite + Allg.Bild_Abstand;
      IF x > (VPanel.ClientWidth - Allg.Bild_Breite - Allg.Bild_Abstand) THEN
      BEGIN
        x := Allg.Bild_Abstand;
        y := y + Allg.Bild_Abstand + Allg.Bild_Hoehe + Allg.BildTitel_Hoehe;
        IF VPanel.Height < (y + Allg.Bild_Abstand + Allg.Bild_Hoehe + Allg.BildTitel_Hoehe) THEN
           VPanel.Height := VPanel.Height + Allg.Bild_Abstand + Allg.Bild_Hoehe + Allg.BildTitel_Hoehe;
      END;
    END;

    Result := True;
  Except
    Result := False;
  End;
end;

Das Ergebnis ist durchaus zufriedenstellend, wie das angehängte Bild zeigt:

[Luki206]

Ach so, Ok. Vielen Dank :thumb: Wie könnte ich eigentlich das umbauen das es auch mit Firemonky funktioniert? Also das mit dem erstellen der Buttons?

[stahli]

@Luki206
Ich habe Deine Fragestellung nur schnell überflogen.
Für den Fall, dass Du hier etwas entnehmen kannst: http://www.delphipraxis.net/165177-scrollboxflow.html

[Luki206]

@Stahli: Beim ausführen der ScrollBoxFlowR.dproj bekomme ich folgenden Fehler bzw. mir wird angezeigt das ich die "acntDelphiXE_R" nicht habe:

Code:

[dcc32 Fataler Fehler] ScrollBoxFlowR.dpk(37): E2202 Package 'acntDelphiXE_R' wird benötigt, konnte aber nicht gefunden werden

[stahli]

Sorry, das ist ein älteres Package, das ich länger nicht mehr in der Hand hatte. Die acnt.. ist von den AlphaSkins, die ich damals eingesetzt hatte.

Ich denke, Du könntest die Verwendung einfach aus den benötigten Packages entfernen, bin aber jetzt nicht sicher, ob das reicht.

Sonst nimm einfach nur die pas zum testen ohne komplettes Package.