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;