Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
Halt. Ich dachte der Code im Anhang ist der gleiche, wie im Text, der als Delphicode angegeben ist.
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
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
Ich verstehe schon was du meinst. Das ändert aber nichts am verhalten.
procedure TForm1.FormCreate(Sender: TObject);
begin
fCombobox:=TCombobox.create(Self);
fCombobox.Parent := self;
fCombobox.Font := self.Font;
fCombobox.text := Inttostr(fCombobox.height);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
Das beruhigt mich schon mal.
Ist nur die Frage, welche Funktion ich aufrufen muss, damit ich sofort die korrekte Größe erhalte.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
Ä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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
An font.size ändert sich übrigens nichts. Habe das Testprogramm mal kurz angepasst
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);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernau,
26. Apr 2019
Hier ein kleines Testprogramm zu einem Verhalten, welches ich nicht verstehe:
procedure TForm1.FormCreate(Sender: TObject);
begin
fCombobox:=TCombobox.create(Self);
fCombobox.Parent := self;
fCombobox.text := Inttostr(fCombobox.height);
end;