TADODataSet -> Datensatz über Symbol löschen

[hirnstroem]

Jetzt, behaupte ich einmal, funktioniert es.

OnRenderCell wird dies mit der entsprechenden Zeile / Spalte gemacht:

Delphi-Quellcode:

  with ACell do
  begin
    Control := TIWImageFile.Create(Self);
    with TIWImageFile(Control) do
    begin
      ImageFile.Filename := './delete.gif';
      Hint := 'Datensatz löschen';
      Tag := DataSet.RecNo;
      OnClick := GridDelete;
    end;
  end;

Und die GridDeleteProzedur sieht so aus:

Delphi-Quellcode:

procedure TfrmRightManagementSelect.GridDelete(Sender: TObject);
begin
  DataSet.First;
  while DataSet.RecNo <> (Sender as TIWImageFile).Tag do
  begin
    DataSet.Next;
  end;
  DataSet.Delete;
end;

An und für sich keine Hexerei -.-

Danke nochmals!
hirnstroem