ValueListEditor: Reihe unter der Maus entfernen

[synex]

Ich habe folgendes Problem:

Ich habe einen ValueListEditor bei dem ich ein PopUpMenu angehängt habe. Wenn ich in diesem PopUpMenu den einen Eintrag anklicke ('Reihe entfernen'), dann soll die Reihe, wo sich die Maus grade drüber befindet entfernt werden.

Weis einer wie das geht? Wäre echt toll!

Bis dann
der synex

[nachtrag]
Durch

Code:

deleterow(row)

habe ich schon geschafft, wenn ich vorher mit der linken Maustaste die Reihe markiert habe, diese auch zu löschen. Jetzt brauch ich noch eine Möglichkeit die Reihe rauszufinden, ohne vorher mit der rechten Maustaste gedrückt zu haben.

[/nachtrag]

[synex]

weis denn keiner Rat?

[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

[synex]

Naja danke erstmal dass du überhaupt geantwortet hast
Aber das Problem ist immer noch dasselbe:
Es geht darum, ich habe einen Valuelisteditor und dazu ein Popupmenu. In diesem Popupmenu kann man auswählen "Reihe entfernen". Wenn ich jetzt mit rechts auf den Editor klicke, öffnet sich das Popupmenü und wenn ich dann noch auf löschen klicke, dann wird die vorher selktierte Reihe gelöscht, also nicht die wo ich mit rechts draufgeklickt habe. Was ich eigentlich brauche ist eine Möglichkeit beim Rechtsklick die aktuell unter der Maus befindliche Reihe abzufragen.

[Stanlay Hanks]

Mit mousedown kannst du doch abfragen, welche maustaste gedrückt wurde. dann kannst du ja fragen: Wenn rechte Maustaste gedrückt wurde, dann zuerst einen llinken Mausklick simulieren und dann noch mal einen Rechtsklick, damit das Popup aufgeht.

Meinst du sowas?

Tut mir leid, habs grad bei mir probiert, scheint nicht zu funktionieren.

[synex]

Im Prinzip ja.
Bleibt nur noch die Frage 1) Wie simulier ich einen linken Klick?
und 2) Wenn er beim OnMouseDown das alles ausführt, dann kann er ja nicht gleichzeitig das Popupmenu öffnen, also muss man das manuel öffnen. Nun hab ich da aber das Problem wenn ich

Code:

popupmenu.popup(x,y) wobei x und y von der OnMouseDown-Funktion übergeben werden

verwende, dass das Popupmenu dann an einer völlig falschen Stelle aufpoppt

[Stanlay Hanks]

Ich hätte das mit
IF Key = mbright then Button := mbleft; Das mit dem Popup ist beimir auch.

So müsste das mit den Koordinaten dann ungefähr stimmen
PopupMenu1.Popup(Form1.Left+xs,Form1.Top+ys);

[synex]

also das mit dem erst linksklick dann rechtsklick funktioniert so nicht
Und das Popupmenu müsste wenn ich nicht irre so sein:

Code:

PopupMenu1.Popup(valuelisteditor1.Left+x,valuelisteditor.Top+y);

aber das will auch nicht

[Stanlay Hanks]

Wenn das so nicht funktioniert, weiß ich auch nix mehr. Aber zu x und y: Ich glaub, Das Programm rechnet x und y von gesamten bildschirm, nicht nur von deinem Programmfenster.
Viel Glück noch , man liest sich Stanlay

[synex]

naja danke jedenfalls mal.
Ist jetzt auch egal, ging um mein programm URL Shortcut (*schleichwerbung*), da wollte ich das eigentlich so haben, aber so wies jetzt ist geht es wenigstens mit Umwegen.
Zu x und y:

Zitat:

aus der Delphi Hilfe:
Parameter X und Y geben die Pixel-Koordinaten des Mauszeigers im Client-Bereich von Sender an.

was auch immer das jetzt bedeuten soll Aber meiner Meinung nach ist der Sender ja ein Element auf der Form und nicht die Form selber und somit wäre meine Theorie richtig *selbstlobstinkt*