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.

[EWeiss]

Zitat von bernau:

Halt. Ich dachte der Code im Anhang ist der gleiche, wie im Text. Habe ihn mir noch mal angeschaut.

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.

Kein Problem

gruss

[Uwe Raabe]

Es genügt, wenn das Handle erzeugt wird:

Delphi-Quellcode:

  fCombobox:=TCombobox.create(Self);
  fCombobox.Parent := self;
  fCombobox.HandleNeeded;
  fCombobox.text := Inttostr(fCombobox.Height);

[EWeiss]

fCombobox.HandleNeeded;

Gut kannte ich nicht
Arbeite ja auch nicht mit der VCL im Normalfall.
Wenn es funktioniert warum nicht

gruss