Timingproblem mit OnChange und OnExit

[RWarnecke]

Hallo zusammen,

ich habe auf einem Formular einen TreeView. Dieser TreeView hat ein OnChange-Ereignis. Neben dem TreeView sind verschiedene Eingabefelder, die Werte in einer Klasse speichern. Bei jeden Eingabefeld habe ich das Ereignis OnExit genutzt um die Werte in die Klasse zu schreiben. Wenn ich jetzt einen Wert eingebe und dann sofort auf den TreeView klicke, wird als erstes das OnChange Ereignis des TreeView ausgelöst und dann das Ereignis OnExit der Eingabefelder. Kann ich das irgendwie umdrehen ?

Nachtrag : Dieses Problem tritt nur zwischen TTreeView und TEdit oder TComboBox auf. Auf das OnChange-Ereignis bei den Eingabefelder würde ich gerne verzichten, da ich erst den Wert abspeichern möchte, wenn er vollständig ist, wenn das möglich ist.

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

[RWarnecke]

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

[Matze]

Hallo Rolf

Zitat von RWarnecke:

[...] Dieser TreeView hat ein OnChange-Ereignis. [...] Wenn ich jetzt einen Wert eingebe und dann sofort auf den TreeView klicke, wird als erstes das OnChange Ereignis des TreeView ausgelöst und dann das Ereignis OnExit der Eingabefelder. [...]

Ich weiß nicht, was du im OnChange-Ereignis genau machst, aber vielleicht wäre diese Lösung denkbar:

Du schreibst dir eine Prozedur, die das macht, was normalerweise im OnChange-Ereignis ausgeführt wird. Im OnExit-Ereignis der Editfelder kannst du diese Prozedur dann aufrufen:

Delphi-Quellcode:

procedure DoOnChange;
begin
  // Code aus dem OnChance-Ereignis
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  // Code des OnExit-Ereignisses
  // ...
  DoOnChange;
end;

Wenn das OnChange-Ereignis aufgrund anderer Aktionen aufgerufen wird (z.B. beim Löschen von Einträgen), dann kannst du die entsprechende Prozedur auch dort (Löschen-Prozedur) aufrufen.
Damit lässt sich die Reihenfolge der Prozeduren/Ereignisse indirekt beeinflussen und bist gleichzeitig relativ flexibel.

Grüße, Matze

[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

[RWarnecke]

Danke euch beiden. Mit himitsu's Beispiel bin ich schonmal eine Ecke weitergekommen. Nur leider arbeite ich in dem OnExit-Ereignis mit TreeView1.Selected.Data. Nur leider wird hier jetzt die neue TreeNode genommen statt der alten TreeNode. Kann ich das auch noch irgendwie schaffen, dass er die alte Node behält und erst beim zweiten Mal die neue Node nimmt ?

Nachtrag : Im TreeView habe ich das Ereignis OnClick und OnChange. Im OnClick wird noch eine zweite Liste gefüllt. Im OnChange werden die Eingabefelder gefüllt und ebenfall die zweite Liste, durch direktes Aufrufen des OnClick-Ereignisses.

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

[RWarnecke]

Danke Björn für Deinen Vorschlag. Aber ich bin kein großer Freund von globalen Variablen. Der Weg den himitsu gezeigt hat, funktioniert schon sehr gut. Es gibt nur einen kleinen Haken, wenn der Wert geändert wurde, wird er in den neu ausgewählten Datensatz geschrieben und nicht in den vorherigen Datensatz.

[himitsu]

Hab grad kein Delphi hier, aber gibt es nicht ein Ereignis vor OnChange?
(OnCanCahnge oder so ... also 'ne Abfrage ob gewechselt werden darf)
Versuch mal meinen Code dahin zu verlagern.

[mirage228]

Zitat von himitsu:

Hab grad kein Delphi hier, aber gibt es nicht ein Ereignis vor OnChange?
(OnCanCahnge oder so ... also 'ne Abfrage ob gewechselt werden darf)
Versuch mal meinen Code dahin zu verlagern.

Gibt es: OnChanging