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