Timingproblem mit OnChange und OnExit

[RWarnecke]

Hallo Himitsu, hallo David,

es hat jetzt geklappt. Wenn die IF-Abfrage von OnChange nach OnChanging verlagert wird, funktioniert es.

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;