ValueListEditor mit rechter Maustaste Zeile selektieren

[Klaus01]

Hallo Achim,

danke für Deinen Quelltext.

Delphi 6 kennt ContectRow anscheinend noch nicht.

Ich habe das Problem jetzt etwas anders gelöst.

Die Zeile wird mit der linken Maustaste selektiert
und mit der rechten wird dann das PopUp aufgerufen.
Ist ein wenig umständlich, aber es geht und ist auch
einigermaßen Windowskonform.

Delphi-Quellcode:

procedure TConfigForm.feed_name_source_listMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  aRow,ACol:Integer;
  pt : TPoint;
begin
  with sender as TValueListEditor do
  begin
    MouseToCell(x,y,aCol,aRow);
    if (button = mbRight) and (aRow = row) then
      begin
        pt:=ClientToScreen(Point(x,y));
        PopUpMenu1.Popup(pt.x,pt.y);
      end;
  end
end;

procedure TConfigForm.delete1Click(Sender: TObject);
begin
  feed_name_source_list.DeleteRow(feed_name_source_list.row);
end;

Hab' noch viel zu lernen.

Danke!

Auch eine geruhsame Nacht
Klaus