Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#7

Re: TListView, OnChanging-Event wird mehrmals aufgerufen

  Alt 4. Jan 2006, 23:39
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;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat