Wie im Stringgrid auf Zellenänderungen reagieren ?

[Keldorn]

Hallo

onsetedittext würd ich auch nicht nehmen, ich würd bei onselectcell beliben

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  //lastvalue in den private - Abschnitt der Form
  with sender as TStringGrid do
    begin
      //einen neue Zelle wurde angeklickt, den wert der alten Zelle (col,row) mit dem gepeicherten wert lastvalue vergleichen
      if cells[Col,Row]<>lastValue then ListBox1.Items.add('Zelle geändert '+'alt:'+lastValue+';neu:'+cells[Col,Row]);
      //den Wert der neu auszuwählenden Zelle speichern
      lastvalue:=cells[acol,arow];
    end;
end;
procedure TForm1.StringGrid1Exit(Sender: TObject);
begin
  //damit auch beim verlassen des grid auf die Änderung reagiert wird
  with sender as TStringGrid do
    if cells[Col,Row]<>lastValue then ListBox1.Items.add('Zelle geändert '+'alt:'+lastValue+';neu:'+cells[Col,Row]);
end;

habs nich groß getestet, sollte aber gehen.

Mfg Frank