Combobox mittig ausrichten

[Volker Z.]

Hallo,

nachdem nun offenbar klar ist was der Unterschied zwischen Form.Height und Form.ClientHeight ist, stellen wir uns nun die Frage braucht es das alles, um eine Combobox (horizontal) mittig auf einem Panel auszurichten, dabei mehrfach einen Integer mittels Trunc in ein Int64 zu konvertieren? Nein, nicht wirklich. Ein einfaches

Delphi-Quellcode:

procedure TForm1.Panel1Resize(Sender: TObject);
begin
  ComboBox1.Top := Panel1.Height div 2 - ComboBox1.Height div 2
end;

reicht, um die Combobox horizontal auszurichten (auch dann, wenn mal Panel1.Align <> alClient ist, kein Statusbar zur Verfügung steht o. ä.!). Der ein oder andere Pixel Unterschied ist dann dem div geschuldet.

Der Vollständigkeit halber: Zentriert auf dem Panel liegt die Combobox mit:

Delphi-Quellcode:

procedure TForm1.Panel1Resize(Sender: TObject);
begin
  ComboBox1.Left := Panel1.Width div 2 - ComboBox1.Width div 2;
  ComboBox1.Top  := Panel1.Height div 2 - ComboBox1.Height div 2
end;

Gruß

[DonManfred]

Zitat von Volker Z.:

Ein einfaches

Delphi-Quellcode:

procedure TForm1.Panel1Resize(Sender: TObject);
begin
  ComboBox1.Top := Panel1.Height div 2 - ComboBox1.Height div 2
end;

reicht, um die Combobox horizontal auszurichten

um die Combobox VERTIKAL auszurichten...