FormActivate wird trotz ShowModal mehrfach ausgeführt

[spaxxn]

Moin DPler,

habe das Problem, dass ein Formular von mir, welches ich Modal anzeige, den FormActivate Event bei jedem Click ausführt, obwohl das Formular den Fokus ja gar nicht verliert.

Kennt jemand dieses Problem oder besser noch, weiss jemand wie das behoben werden kann.


Tschoeeee ersma

spaxxn

[Tyrael Y.]

Wozu brauchst du überhaupt FormActivate?

Geht nicht FormShow oder FormCreate?

[spaxxn]

Würde es der Beantwortung der eigentlichen Frage dienen, wenn mir ein FormShow reichen würde?

[Angel4585]

Ich hab das grad mal getestet und kanns nicht nachvollziehen. Was wird denn alle gemacht in deinem FormActivate und generell auf dem Form und dessen Ereignissen?

[Tyrael Y.]

Ok sry.

Also normal ist das von dir beschriebene Verhalten nicht.
FormActivate dürfte nur kommen wenn der Fokus gesetzt wird.

Kann es sein, daß im Programmcode der Fokus anderweitig vergeben wird?
Kannst du dieses Verhalten mit einem Testprojekt, daß fast leer ist auch nachvollziehen, denke nicht?

[spaxxn]

Ich habe 2 Formulare, bei denen ich so vorgehe. Bei dem Einem ist alles in Ordnung, bei dem Anderem macht er halt diesen Quatsch.

Der Fokus ändert sich nicht durch den Code. Darum fange ich auch so langsam an überfragt zu sein.

In einem neuem Projekt ist es, wie sollte es anders sein, nicht zu reproduzieren :D

@Tyrael: Es geht mir halt nicht um die Umgehung des Problems, sondern um die Lösung dafür.

[Tyrael Y.]

Jetzt wird der Code in FormActivate interressant.
Poste es mal wenn es geht.

Wenn es nicht geht, guck dir jede Zeile genau an.
Wichtig ist natürlich auch bei Funktionsaufrufen, was in den darunterliegenden
Funktionen passiert, insbesondere Messages die geschickt werden, direkt oder indirekt.

[spaxxn]

Moin,

war krank :(

Also mal abgesehen davon, dass der Code an der Stelle vollkommen unauffällig ist, dürfte er ja eigentlich gar kein zweites Mal ausgeführt werden.

Delphi-Quellcode:

  myFlag := True;
  SetRights(Self);
  cbValues.Items.Clear;
  cbValues.Items.Add('<Alle>');
  cbValues.Items.Add('<undefiniert 0>');
  // cb wird nun mit Werten gefüllt, rausgenommen
  cbValues.ItemIndex := 0;
  acRefreshExecute(Sender);