Listbox Rechtsklick

[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] Cool, 1111. Beitrag [/edit]