Thema: Delphi Button auflisten

Einzelnen Beitrag anzeigen

Tau

Registriert seit: 17. Mär 2003
Ort: Bludenz
221 Beiträge
 
Delphi 7 Enterprise
 
#1

Button auflisten

  Alt 24. Feb 2004, 20:14
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.
http://www.quad-offroad.com
wer kämpft kann verlieren aber wer nicht kämpft hat verloren
( Delphi 7 )
  Mit Zitat antworten Zitat