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:

Zitat von Neutral General (Beitrag 1431072)

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:

Zitat von EWeiss (Beitrag 1431076)

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:

Zitat von Neutral General (Beitrag 1431077)

Ja habs auch grad getestet, kann das Verhalten reproduzieren.

Das beruhigt mich schon mal.

Zitat:

Zitat von Neutral General (Beitrag 1431077)

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.

[EWeiss]

Zitat:

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

Einen Beitrag höher lesen ;)

gruss

[bernau]

Zitat:

Zitat von EWeiss (Beitrag 1431080)

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

Ich verstehe schon was du meinst. Das ändert aber nichts am verhalten.

Delphi-Quellcode:

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

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

Ich habe im OnCreate den Font der Form zugewiesen. es bleibt aber im OnCreate bei 25. Erst wenn der Button gedrückt wird, dann erhalte ich 21. Zweischenzeitlich wird nichts geändert.

[bernau]

Zitat:

Zitat von EWeiss (Beitrag 1431082)

Zitat:

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

Einen Beitrag höher lesen ;)

gruss

Probier es doch mal aus. Neutral General kann es nachvollziehen.

Einfach eine Form erzeugen. Doppelclick auf OnCreate. Die Zeilen aus meinem Code einfügen.
Schalter drauf. Doppelcklick. Eine Zeile aus meinen Beispiel einfügen.

Programm starten. In der Combobox steht 25. Schalter drücken. In der Combobox steht 21.

Das ist definitiv ein unlogisches Verhalten.

[bernau]

Habe noch mal weiter getestet. Egal welche Fontgröße ich zuweise, solange ich mich im OnCreate befinde, bleibt die Höhe der Combobox bei 25.

[EWeiss]

Zitat:

Zitat von bernau (Beitrag 1431085)

Habe noch mal weiter getestet. Egal welche Fontgröße ich zuweise, solange ich mich im OnCreate befinde, bleibt die Höhe der Combobox bei 25.

Habe ich.. meine höhe ist 21.

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;

siehe shot

PS:
Ohne Zuweisung der Höhe!
siehe shot ClientRect

gruss

[bernau]

Zitat:

Zitat von EWeiss (Beitrag 1431086)

Zitat:

Zitat von bernau (Beitrag 1431085)

Habe noch mal weiter getestet. Egal welche Fontgröße ich zuweise, solange ich mich im OnCreate befinde, bleibt die Höhe der Combobox bei 25.

Habe ich.. meine höhe ist 21.

gruss

Ich weis nicht ob mein Problem so schwer zu verstehen ist.

Ich will nicht selber die Höhe im OnCreate setzen. Bringt sowiso nichts, weil die Höhe der Combobox nach dem Create die korrekte Größe "21" besitzt. Warum sollte ich die Höhe selber setzen sollen?

Ich will lediglich den korrekten Wert 21 auch im OnCreate auslesen können, damit ich die Comboboxen ordentlich anordnen kann.

Wir reden aneinander vorbei. Aber OK. Danke für deine Hilfe.

[EWeiss]

Zitat:

Ich will nicht selber die Höhe im OnCreate setzen. Bringt sowiso nichts, weil die Höhe der Combobox nach dem Create die korrekte Größe "21" besitzt. Warum sollte ich die Höhe selber setzen sollen?

Siehe mein Edit! Habe ich die höhe gesetzt? Denke mal nicht.

Siehe Shot ClientRect. 2 Beiträge höher

Hier noch ein shot mit einem Font von 10 logischerweise ist dann die Combo 24 Pixel in der höhe.
Man oooh man..

ok bin raus.. weil ich bewiesen habe das es funktioniert!

gruss

[bernau]

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

Zitat:

Zitat von EWeiss (Beitrag 1431086)

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

Delphi-Quellcode:

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:

Zitat von bernau (Beitrag 1431091)

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

Die sache mit

Delphi-Quellcode:

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]

Delphi-Quellcode:

fCombobox.HandleNeeded;

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

gruss