FormResize - Kurios....

ichfalk · Hält's aus hier Beiträge: 7

Tach!

Ich hab was kurioses:

Wenn ich die Form zur Laufzeit verkleiner, dann wird

TForm.FormResize(Sender: TObject);

immer 5 (!) mal durchlaufen...
(Auch wenn man von Maximiert auf Normal-Größe schaltet)

Beim Vergrößern und Maxi-/Minimieren jedoch nur einmal...

Was passiert da?
Was kann ich tun?
Wer kann mir helfen?

Falk.

Grendel · Verfasst: Di 23.11.04 16:03

Was machst Du denn im OnResize()?

Wenn Du im OnResize() eines Formulars z.B. die Hoehe des Formulars wieder überschreibst dann wird OnResize() erneut ausgeloest.

Sowas:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormResize(Sender: TObject);
begin
  self.Height := Screen.WorkAreaHeight;
end;

würde also auf jeden Fall zweimal Resize() ausloesen.

Bis neulich ...

ichfalk · Hält's aus hier Beiträge: 7

ich änder natürlich nicht die size der form selbst,
(dann würde es doch auch beim vergrößern mehrmals durchlaufen werden, oder übersehe ich da was?)
sondern passe einen panel an die neue form-größe an.

kann es daran liegen, dass dieser panel bei einer verkleinerung kurzzeitig größer als die form ist?

ratlos,
falk.

.Chef · Beiträge: 1112

ichfalk hat folgendes geschrieben:

kann es daran liegen, dass dieser panel bei einer verkleinerung kurzzeitig größer als die form ist?

Das wäre eine Erklärung, falls das OnResize ausgelöst wird, wenn die Scrollbalken eingeblendet werden. Müsste man mal testen ...

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

ichfalk · Hält's aus hier Beiträge: 7

joh, scrollbalken aus und schon erledigt...
die scheinen anscheinend die formResize aufzurufen, sobald sie erscheinen....
(5=
eigener.resize+
horiz.visible+
vertic.visible+
not.horiz.visible+
not.vertic.visible)

krass...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme