Komponenten ermitteln

[Mathias]

Ich habe mehrere Schrollbars in einem Form, welche die Breite davon füllen.
Wen ich nun das Form strecke, sollten die Scrollbars mit angepasst werden.

Ich könnte natürlich alle Scrollbars einzeln anpassen, aber es gibt sicher etwas einfacheres ?

[Michl]

Das klingt mir danach, dass du die Eigenschaft "AnChors" suchst.

Falls nicht, kannst Du mal ein Snapshot machen, oder deutlicher erklären, was du genau meinst?!

[Mathias]

Mit langer Suche, bin ich auf folgendes Ergebniss gekommen.

Code: Alles auswählen

procedure TLichtsteuerung1.FormResize(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to Self.ControlCount - 1 do begin
    if Self.Controls[i] is TScrollBar then begin
      TScrollBar(Self.Controls[i]).Width := Width - 40;
    end;
  end;
end;  

[theo]

Mit langer Suche, bin ich auf folgendes Ergebniss gekommen.

Wenn man es kompliziert mag...
Warum nimmst du nicht einfach die Anchors, wie Michl sagte?
http://wiki.freepascal.org/Autosize_/_L ... chor_Sides

[Mathias]

Warum nimmst du nicht einfach die Anchors, wie Michl sagte?

Dies geht hervoragend.

Z.T. hat es recht viele mächtige Funktionen in Lazarus verbaut, welche man selbst nicht findet.