TListView, OnChanging-Event wird mehrmals aufgerufen

[Lannes]

Hallo,

anderer Vorschlag:
Bei z.B. Editfelder und auch andere Komponenten kann man im OnExit-Ereignis mit
ActiveControl die Komponente ermitteln die den Focus bekommen wird.
Klickt man nun in die ListView wird das Ereignis OnExit des Editfeldes vor dem Ereignis OnChanging der ListView ausgelöst.
Also die Speichern [Ja - Nein - Abbrechen]-Abfrage
ins OnExit des Edits integrieren und ein Flag fürs OnChanging-Ereignis der ListView setzen.

Im nachfolgenden Beispiel wird ListView.Tag als Flag genutzt:

Delphi-Quellcode:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if ActiveControl = ListView1 then
    case MessageDlg('Änderungen speichern?',mtCustom,[mbYes,mbNo,mbCancel],0) of
      mrYes:     begin
                 Caption := 'Speichern';
                 ListView1.Tag := 0;
                 end;
      mrNo:      begin
                 Caption := 'Nicht Speichern';
                 ListView1.Tag := 0;
                 end;
      mrCancel:  begin
                 Caption := 'Abgebrochen';
                 ActiveControl := Edit1;
                 ListView1.Tag := 1;
                 end;
    end;
end;

procedure TForm1.ListView1Changing(Sender: TObject; Item: TListItem;
  Change: TItemChange; var AllowChange: Boolean);
begin
  if ListView1.Tag = 1 then
    AllowChange := False
    else
    AllowChange := True;
end;