Neuberechnung TLabel.Height

[Eclipticon]

Hi,

ich weise zur Laufzeit einem TLabel (AutoSize := true; WordWrap := true; fixe Breite) eine neue, mehrzeilige Caption zu.

Da ich gerne einige Komponenten aufgrund der Groesse von TLabel gern neu positionieren wuerde, lese ich Height aus ... funktioniert aber nicht, der Wert aendert sich erst nach Form.Show. Ich frage mich daher, zu welchem Zeitpunkt Height neu berechnet wird (interessanterweise werden dabei aber weder TLabel.OnChangeBounds oder TLabel.OnResize aufgerufen) bzw. wie ich eine Neuberechnung gleich nach der Zuweisung der Caption erzwingen kann ...

Danke!

[DiBo33]

bzw. wie ich eine Neuberechnung gleich nach der Zuweisung der Caption erzwingen kann

Versuchs mit

Code: Alles auswählen

TLabel.Invalidate;

Edit: oder schieb noch ein

Code: Alles auswählen

Application.ProcessMessages;

dazwischen.

[Eclipticon]

Hi,

nein, leider helfen weder .Invalidate, noch .Update noch Application.ProcessMessages zusammen ... Mittlerweile weiss ich aber, dass es in allen Hauptforms funktioniert, in den selbst erzeugten nicht. Strange.

Andere Frage - wie kann es sein, dass bei folgendem Code

Code: Alles auswählen

procedure TMainForm.SomeButtonClick(Sender: TObject);
var
  ASomeForm: TSomeForm;
begin
  ASomeForm := TSomeForm.Create(self);
  ASomeForm.ShowModal;
  ASomeForm.Free;
end;

TSomeForm.OnShow nie TSomeForm.FormShow aufruft?!? ShowModal gegen Show zu ersetzen aendert nichts daran ...

[MAC]

Wenn du

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

in den QuellCode schreibst und auf Button1 klickst , was passiert dann ?
Richtig, Nichts - Du musst im Objektinspektor das Button1.OnClick mit Button1Click verbinden (beim erstellen über Doppelklick passiert das automatisch... , nicht jedoch wenn du allein den Quellcode reinschreibst).

So, wie weisen wir das nun zu Laufzeit zu ?

Code: Alles auswählen

TSomeForm.OnShow := @TSomeForm.FormShow;

Der Code sieht dann wie folgt aus:

Code: Alles auswählen

procedure TMainForm.SomeButtonClick(Sender: TObject);
var
  ASomeForm: TSomeForm;
begin
  ASomeForm := TSomeForm.Create(self);
  ASomeForm.OnShow := @TSomeForm.FormShow; // Ich bin mir nicht ganz sicher ob es TSomeForm oder ASomeForm ist. notfalls ausprobieren...
  ASomeForm.ShowModal;
  ASomeForm.Free;
end;

[Eclipticon]

Hi MAC,

was passiert dann ?
Richtig, Nichts - Du musst im Objektinspektor das Button1.OnClick mit Button1Click verbinden (beim erstellen über Doppelklick passiert das automatisch... , nicht jedoch wenn du allein den Quellcode reinschreibst).

natuerlich is TSomeForm.OnShow im Objektinspektor mit FormShow verbunden ... ich hab mindestens schon 300 mal nachgesehen, und es steht noch immer da.

So, wie weisen wir das nun zu Laufzeit zu ?

Code: Alles auswählen

TSomeForm.OnShow := @TSomeForm.FormShow;

Das hat mich aber auf die Idee gebracht, es mal mit einer Zuweisung zur Laufzeit auszuprobieren ... und siehe da, es funktioniert (mit der Adresse der Instanz).

Kann mir das bitte irgendjemand erklaeren!??

[Socke]

So, wie weisen wir das nun zu Laufzeit zu ?

Code: Alles auswählen

TSomeForm.OnShow := @TSomeForm.FormShow;

Knallts da nicht schon im Compiler? @TSomeForm.FormShow hat keinen gültige Instanz-Zeiger/bzw. ist im Allgemeinen eine Methode einer Klasse und nicht eines Objekts.

Code: Alles auswählen

ASomeForm.OnShow := @ASomeForm.FormShow;

[Eclipticon]

Knallts da nicht schon im Compiler? @TSomeForm.FormShow hat keinen gültige Instanz-Zeiger/bzw. ist im Allgemeinen eine Methode einer Klasse und nicht eines Objekts.

Ja, da knallts schon beim Compilieren. Wie MAC geschrieben hat ... er ist sich nicht ganz sicher ob es TSomeForm oder ASomeForm ist.

[Eclipticon]

Kann mir das bitte irgendjemand erklaeren!??

Nachtrag hierzu: Ich hatte bei dieser Form noch mehrere Probleme (z.B. Laufzeitfehler, dass OnClick etwas falsches zugewiesen wurde, wobei OnClick aber definitiv leer war). Daraufhin habe ich saemtliche *ppu, *o und *lrs geloescht ... und ploetzlich funktioniert alles wieder, auch FormShow wird wie erwartet aufgerufen.

Gibt's dafuer IRGENDEINE Erklaerung? Wird mir das oefter passieren?

[Maik81ftl]

Kann mir das bitte irgendjemand erklaeren!??

Nachtrag hierzu: Ich hatte bei dieser Form noch mehrere Probleme (z.B. Laufzeitfehler, dass OnClick etwas falsches zugewiesen wurde, wobei OnClick aber definitiv leer war). Daraufhin habe ich saemtliche *ppu, *o und *lrs geloescht ... und ploetzlich funktioniert alles wieder, auch FormShow wird wie erwartet aufgerufen.

Gibt's dafuer IRGENDEINE Erklaerung? Wird mir das oefter passieren?

Kenn ich zu genüge dieses Problem, Unter WIndows via Delphi und lazarus als auch unter OS 10.3 und Ubuntu. daher werd i mich als nächten daran machen, um diese Daten beim Systemstart zu killen...

wenn's läuft, post i des hier mal rein...