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.

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

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

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

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