Timingproblem mit OnChange und OnExit

[Björn Ole]

Zitat von RWarnecke:

Danke für Deine Notlösung, nur leider habe ich 20 Felder bestehend aus ComboBoxen und Editfeldern.

Notnotlösung?

Delphi-Quellcode:

var
  aComp: TComponent;
  bFlag: boolean = false;

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

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  aComp.OnExit(Sender); // noch entsprechend casten...
  // ...
end;