TCombobox -> Height verändert sich nach dem Create

[bernau]

Halt. Ich dachte der Code im Anhang ist der gleiche, wie im Text, der als Delphicode angegeben ist.

Zitat von EWeiss:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1 := TComboBox.Create(Self);
  ComboBox1.Parent := self;
  ComboBox1.Top := 10;
  ComboBox1.Left := 10;
  ComboBox1.Font := TFont.Create;
  ComboBox1.Font.Name := 'Tahoma';
  ComboBox1.Font.Size := 8;
  ComboBox1.Height := 21;
  ComboBox1.Width := 200;
  ComboBox1.Text := Inttostr(ComboBox1.height);
end;

Dort setzt du die Höhe. Deshalb mein vorheriger Post.

Habe den Code im Pic mir noch mal angeschaut. Der ist anders.

Die Sache mit

winapi.windows.GetClientRect(fCombobox.Handle, rc); Funktioniert.

Prima. Danke dir für deine Mühe.


Edit: Unsere beiden letzten Posts haben sich überschnitten.