Zusätzliche Spalten für View, Edit, Delete, etc. in IWDBrid

[hirnstroem]

'loha Folks,

ich möchte mich erkundigen wie ihr einem Datenbankgrid zusätzliche Spalten, deren einzelne Zeilen mit Symbolem zur Manipulation des jeweiligen Datensatzes versehen werden, einrichtet.

Meine bisherige lösung sieht folgendermassen aus:

Delphi-Quellcode:

procedure TfrmManagement_People_Select.grdUserRenderCell(
  ACell: TIWGridCell; const ARow, AColumn: Integer);
begin
  if (ARow <> 0) and (AColumn = 5) then
  begin
    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;
  end;
end;

procedure TfrmManagement_People_Select.GridDelete(Sender: TObject);
begin
  DataSet.RecNo := (Sender as TIWImageFile).Tag;
  DataSet.Delete;
end;

Leider ist dies überhaupt nicht performant. Eine bessere Lösung sehe ich jedoch nicht, deshalb dieser Beitrag.

Grüsse
hirnstroem