Zitat von
freak4fun:
Bei mir gehts auch, aber wie kann ich das anpassen, denn wenn ich das bei mir breiter mach ist das auch wieder doof.
Du musst ClientWidth und ClientHeight deiner Form wärend der Laufzeit anpassen. Nehmen wir mal an deine ListBox die in deinem Programm verwendet wird heißt ListBox1. Dann könnte das so aussehen.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
with Self do
begin
BorderIcons := BorderIcons - [biMaximize];
BorderStyle := bsSingle;
ClientWidth := ListBox1.Left + ListBox1.Width + 5;
ClientHeight := ListBox1.Top + ListBox1.Height + 5;
end;
end;
Zusätzlich würde ich den Maximieren Button der Form entfernen. Der macht ja kein Sinn, weil du deine Controls ja nicht an die Form anpasst. Außerdem kannst du mit dem BorderStyle bsSingle noch erreichen, das der Benutzer die Form nicht vergrößern kann.