TCombobox -> Height verändert sich nach dem Create

[bernau]

Hier ein kleines Testprogramm zu einem Verhalten, welches ich nicht verstehe:

Delphi-Quellcode:

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

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

Wenn das Programm gestartet wird, dann steht in der Combobox der Wert 25.

Wenn ich danach den Button drücke, dann steht in der Combobox der Wert 21.

Die Höhe der Combobox hat sich geändert. Warum? Kann das einer nachvollziehen, oder liegt es an meiner Delphi-Version. (Embarcadero® Delphi 10.2 Version 25.0.29039.2004 )

[Neutral General]

Die FontSize der ComboBox ist eine andere als die des Forms?

[bernau]

Zitat von Neutral General:

Die FontSize der ComboBox ist eine andere als die des Forms?

Die Combobox ist ja dynamisch erzeugt. (Erst zwei Zeilen im Create).

Fontsize habe ich der Combobox gar nicht zugewiesen.

Und nach dem Create wird an der Combobox ja nichts mehr geändert. Zumindest nicht von mir.

[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.

[EWeiss]

Zitat:

Die Combobox ist ja dynamisch erzeugt. (Erst zwei Zeilen im Create).

Das ist ein normales verhalten..
Weil die Combobox eine fixe höhe hat.

Wenn du hier also als bsp. 30 nimmst wird sich diese Automatisch auf die höhe von 21 setzen.
Das ist nun mal so und nicht falsch.

Also nehme die 21 und gut ist!
Die höhe ist also abhängig vom gesetzten Font und die kannst du nicht ändern wenn der Fontsize 8 ist

gruss

[Neutral General]

Ja habs auch grad getestet, kann das Verhalten reproduzieren.
Die nächste Theorie:

25 ist die default Height einer TComboBox.
Später wird die Height aufgrund der FontSize berechnet.

In deinem FormCreate nachdem du die ComboBox erstellt hast (selbst nach dem Zuweisen des Parents) hat die ComboBox wahrscheinlich noch keine Windows Message erhalten und ist quasi noch nicht 100% initialisiert bzw. wurde noch nie gezeichnet.
Nach dem Create kommt die Änderung des Parents durch und die ComboBox passt sich an ihr "Umfeld" an.

[EWeiss]

Zitat:

25 ist die default Height einer TComboBox.

Nein 21 beim Fontsize 8

gruss

[bernau]

Zitat von EWeiss:

Zitat:

Die Combobox ist ja dynamisch erzeugt. (Erst zwei Zeilen im Create).

Wenn du hier also als bsp. 30 nimmst wird sich diese Automatisch auf die höhe von 21 setzen.
Das ist nun mal so und nicht falsch.

Also nehme die 21 und gut ist!

gruss

Ähm. Wie schon gesagt. Ich setzte die Höhe gar nicht. Ich möchte ja gerne die 21 haben. Diese wird mir im OnCreate aber nicht gegeben, sondern 25.

Das angegebene Beispiel ist ja nur minimal um den Fehler zu Beschreiben. In meinem tatsächlichen Fall möchte ich mehrere Comboboxen dynamisch erzeugen und untereinander anordnen. Wenn die Anordnung im OnCreate geschieht, habe ich eine andere Anordnung, als wenn ich die Anordnung später durchführe.

[EWeiss]

Zitat:

Ähm. Wie schon gesagt. Ich setzte die Höhe gar nicht. Ich möchte ja gerne die 21 haben. Diese wird mir im OnCreate aber nicht gegeben, sondern 25.

Was verstehst du nicht?

FontName = Tahoma
Fontsize = 8

weise der Combo den Font zu und deine Höhe ist 21.
Die höhe kannst du NUR durch das setzen des Fonts beeinflussen.

gruss

[bernau]

Zitat von Neutral General:

Ja habs auch grad getestet, kann das Verhalten reproduzieren.

Das beruhigt mich schon mal.

Zitat von Neutral General:

Die nächste Theorie:

25 ist die default Height einer TComboBox.
Später wird die Height aufgrund der FontSize berechnet.

In deinem FormCreate nachdem du die ComboBox erstellt hast (selbst nach dem Zuweisen des Parents) hat die ComboBox wahrscheinlich noch keine Windows Message erhalten und ist quasi noch nicht 100% initialisiert bzw. wurde noch nie gezeichnet.
Nach dem Create kommt die Änderung des Parents durch und die ComboBox passt sich an ihr "Umfeld" an.

Ist nur die Frage, welche Funktion ich aufrufen muss, damit ich sofort die korrekte Größe erhalte.