Timingproblem mit OnChange und OnExit

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TForm1.TreeView1Changing(Sender: TObject;
  Node: TTreeNode; var AllowChange: Boolean);
begin
  if ActiveControl <> Sender then
  begin
    AllowChange := False;
    ActiveControl := TWinControl(Sender);
  end;
  AllowChange := True;
end;

du meinst wohl

Delphi-Quellcode:

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

oder

Delphi-Quellcode:

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

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

Delphi-Quellcode:

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