TCombobox -> Height verändert sich nach dem Create

[bernau]

An font.size ändert sich übrigens nichts. Habe das Testprogramm mal kurz angepasst

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  fCombobox:=TCombobox.create(Self);
  fCombobox.Parent := self;
  fCombobox.text := Inttostr(fCombobox.font.size);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  fCombobox.text := Inttostr(fCombobox.font.size);
end;

In beiden Fällen wird 8 angezeigt.