ValueListEditor mit rechter Maustaste Zeile selektieren

[marabu]

Hallo Klaus,

bei mir funktioniert das hier:

Delphi-Quellcode:

// form private: ContextRow: Integer;

procedure TDemoForm.ValueListEditor1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  iSelected, iRow, iCol: Integer;
  pt: TPoint;
begin
  with Sender as TValueListEditor do
  begin
    iSelected := Row;
    MouseToCell(x, y, iCol, iRow);
    if (button = mbRight) and (iRow > 0) and (iRow < RowCount) then
    begin
      Row := iRow;
      ContextRow := iRow;
      pt := ClientToScreen(Point(x, y));
      PopUpMenu.Popup(pt.x, pt.y);
      Row := iSelected;
    end else ContextRow := -1;
  end;
end;

Probiere mal selbst.

Gute Nacht