Delphi-PRAXiS - Delphi Button auflisten

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Button auflisten (https://www.delphipraxis.net/16870-button-auflisten.html)

Button auflisten

Hallo Leute

Habe auch wieder mal ein Problem

Habe 6 Button in einem Panel aufgereiht. Diese Button werden anhand von einer Berechnung in die richtige Position gebracht.

Delphi-Quellcode:

			procedure TForm1.Button7Click(Sender: TObject);

  var Y : Integer;

begin

   Y := 5;

   Button6.Left := Panel1.Width - (Button6.Width +10);

   Button5.Left := Button6.Left - (Button5.Width + Y);

   Button4.Left := Button5.Left - (Button4.Width + Y);

   Button3.Left := Button4.Left - (Button3.Width + Y);

   Button2.Left := Button3.Left - (Button2.Width + Y);

   Button1.Left := Button2.Left - (Button1.Width + Y);

end;

Jetzt mein Problem es kann sein das einen, zwei oder auch mehrer der Button mit Visible := False gesetzt werden. Danach bleibt eine Lücke zwischen denn Button.

Meine Frage wie kann ich das verhindern.

für einen Tipp währe ich Sehr Dankbar

Mit Grüssen

Tau

PS. mit einer ToolBar kann ich es leider nicht machen es gibt spezielle gründe dafür.

Re: Button auflisten

Hi!

Ermittle doch zuerst die Anzahl an sichtbaren Buttons und mache dann auf dieser Grundlage die Berechnung.

Ciao fkerber

Re: Button auflisten

Hallo fkerber

Danke für den Tipp habe schon eine Lösung gefunden. :witch:

Gruss
Tau

Re: Button auflisten

Hallo Tau,

ich hätte es auch so gemacht, wie es fkerber vorgeschlagen hat.

Deine Lösung ist natürlich auch möglich, aber Deinem Quelltext nach zu urteilen scheint mir diese dann doch ein wenig umständlich. :twisted:

mfg
eddy

Re: Button auflisten

Hi!

@eddy:
Hast du Quellcode, den ich nicht habe? :lol:
Oder habe ich was verpasst?

Ciao fkerber