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;

[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;

[RWarnecke]

Zitat von himitsu:

du meinst wohl

Delphi-Quellcode:

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

Wenn die IF-Abfrage zutrifft bricht er das Ereignis ab. Alles was nach der IF-Abfrage kommt, wird nichtmehr beachtet. Habe mal mein komplettes Testprogram drangehängt.

Edit:

Zitat von himitsu:

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

Delphi-Quellcode:

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

Das müsste doch eher so heißen, da AllowChange beim Aufruf des Ereignisses immer True ist :

Delphi-Quellcode:

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