'loha Folks,
folgende Situation:
In einem IWDBGrid werden zusätzlich zu den angezeigten Spalten, Spalten mit Symbolen (auf allen Zeilen ausser der Titelzeile) eingefügt. Diesen Symbolen sollen Funktionen hinterlegt werden, welche den jeweiligen Datensatz betreffen (Delete, Edit, Insert, etc.).
Und hier beginnen meine Schwierigkeiten. Mit der folgenden Prozedur wird ein Symbol hinzugefügt, in diesem Fall zum Löschen:
Delphi-Quellcode:
procedure TfrmRightManagementSelect.grdLoginUserRenderCell(ACell: TIWGridCell;
const ARow, AColumn: Integer);
begin
if ARow <> 0 then
begin
if AColumn = 4 then
begin
with ACell do
begin
Control := TIWImageFile.Create(Self);
with TIWImageFile(Control) do
begin
ImageFile.Filename := './delete.gif';
// OnClick := ;
end;
end;
end;
end;
end;
Dem bisher auskommentierten OnClick Ereignis möchte ich folgende Prozedur zuweisen:
Delphi-Quellcode:
procedure TfrmRightManagementSelect.grdLoginUserColumns4Click(ASender: TObject;
const AValue: string);
begin
DataSet.Delete;
end;
OnClick := grdLoginUserColumns4Click;
^^ dies Funktioniert nicht. Die Fehlermeldung beim Kompilieren lautet:
[Pascal Fehler] URightManagementSelect.pas(201): E2009 Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'
Nun leuchtet dies an und für sich auch noch ein, da das OnClick Ereignis nur den Parameter "Sender: TObject" kennt.
Wie kann ich nun über dieses Symbol die Prozedur aufrufen? Den Wert AValue müsste man irgendwie ja noch übergeben...aber irgendwie schnall ich da ab.
Grüsse
hirnstroem