Timingproblem mit OnChange und OnExit

[Björn Ole]

Vielleicht als Notlösung...

Delphi-Quellcode:

var
  bFlag: boolean = false;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if bFlag then
  begin
    bFlag := false;
    Exit;
  end;

  ShowMessage('Edit1Exit');
  // ...
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  Edit1.OnExit(Sender);
  ShowMessage('TreeView1Change');
  // ...
end;