Listbox Rechtsklick

[BlueBong]

Hallo miteinander

Ich habe eine Listbox und möchte haben, dass bei einem Rechtsklick der jeweilige Datensatz ausgewählt wird und ein Auswahlmenü aufgeht.

Wie kann ich die lösen?

Vielen Dank schon im Voraus.

MfG Michael

[Ultimator]

Schau dir mal das TPopupMenu an ;-)

[BlueBong]

Das Popup-Menü hab ich ja. Aber der Mausklick soll die selbe Wirkung wie ein Linksklick nur noch zusätzlich das Popupmenu. Und dies finde ich in der Hilfe irgendwie nicht.

[Ultimator]

Delphi-Quellcode:

procedure LinksKlick;
begin
  ShowMessage(ListBox1.Items.Strings[ListBox1.Itemindex]);  //Angeklickten Eintrag der LB anzeigen
end;

procedure RechtsKlick;
begin
  PopUpMenu1.PopUp(Mouse.CursorPos.X, Mouse.CursorPos.Y);  //PopUp-Menü aufploppen lassen
end;

procedure RechtmitLinksKlick;
begin
  LinksKlick;  //Oder halt anders rum
  RechtsKlick; //wie dus eben brauchst ;-)
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  RechtsmitLinksKlick;
end;

Ich hoffe, es ist klar geworden ;-)

[edit] :party: Cool, 1111. Beitrag :drunken: [/edit]

[BlueBong]

Sorry. Aber das ist jetzt genau das gegenteil von dem was ich möchte :D

Also ich möchte, dass wenn ich mit der rechten Maustaste auf die Listbox klicke. Ein Element von ihr ausgewählt wird und ein Popupfenster aufgeht.

Beim Linkklick soll einfach nur ausgewählt werden.

MfG Michael

[Aike]

Schau dir mal TMouseButton an und OnMouseDown in der Listbox an.