Timingproblem mit OnChange und OnExit

[RWarnecke]

Zitat von himitsu:

du meinst wohl

Delphi-Quellcode:

if ActiveControl <> Sender then
begin
  AllowChange := False;
  ActiveControl := TWinControl(Sender);
  Exit;
end;
AllowChange := True;

Wenn die IF-Abfrage zutrifft bricht er das Ereignis ab. Alles was nach der IF-Abfrage kommt, wird nichtmehr beachtet. Habe mal mein komplettes Testprogram drangehängt.

Edit:

Zitat von himitsu:

aber da es läuft, sollte es so auch ausreichen

Delphi-Quellcode:

if ActiveControl <> Sender then
  ActiveControl := TWinControl(Sender);
AllowChange := True;

Das müsste doch eher so heißen, da AllowChange beim Aufruf des Ereignisses immer True ist :

Delphi-Quellcode:

if ActiveControl <> Sender then
begin
  AllowChange := False;
  ActiveControl := TWinControl(Sender);
end;