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ß