Timingproblem mit OnChange und OnExit

[himitsu]

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if ActiveControl <> Sender then
    ActiveControl := TWinControl(Sender);

  ...
end;

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  //if ActiveControl <> Sender then
  //begin
  //  Memo1.Lines.Add('check TreeView1.OnChange');
  //  ActiveControl := TWinControl(Sender);
  //end;

  Memo1.Lines.Add('TreeView1.OnChange');
end;

procedure TForm1.TreeView1Enter(Sender: TObject);
begin
  Memo1.Lines.Add('TreeView1.OnEnter');
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Memo1.Lines.Add('Edit1.OnExit');
end;

ohne

Code:

TreeView1.OnChange
Edit1.OnExit
TreeView1.OnEnter

mit

Code:

check TreeView1.OnChange
Edit1.OnExit
TreeView1.OnEnter
TreeView1.OnChange