ValueListEditor: Reihe unter der Maus entfernen

[Specialwork]

Hallo synex,

Versuch es mal so:

Delphi-Quellcode:

 var ActiveRow: Integer;

procedure TForm1.ValueListEditor1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  ActiveRow:=ARow;
end;

procedure TForm1.Reiheentfernen1Click(Sender: TObject);
begin
  if (ActiveRow<ValueListEditor1.RowCount) then begin
    ValueListEditor1.DeleteRow(ActiveRow);
  end;
end;

Gruß, Tom