Menü über rechte Maustaste

schuri · Hält's aus hier Beiträge: 11 Win XP, Linux SUSE 9.0 D3

hi!
ich habe ein Listenfeld und möchte, wenn ich mit der rechten Maustaste auf ein Eintrag klicke, dass dieser selktiert wird und sich ein Menü öffnet. wie geht das?

Moderiert von Tino: Topic aus Sonstiges verschoben am Mo 19.07.2004 um 13:33

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

Hallo

Popupmenü auf das formular legen und dieses dem "listenfeld" im objektinspektor zuweisen.

Gruß
Ken

_________________
Eine Klasse beschreibt die Struktur und das Verhalten einer Menge gleichartiger Objekte.

maxk · Verfasst: So 18.07.04 11:22

Stichwörter Suche in: Delphi-Forum, Delphi-Library

ITEMATPOS ITEMINDEX

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

schuri · Hält's aus hier Beiträge: 11 Win XP, Linux SUSE 9.0 D3

ok, danke!
das mit dem menü hab ich, aber der selektiert ja nich den eintrag unter dem cursor....

maxk · Verfasst: So 18.07.04 19:33

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.ListBoxMouseDown(Sender: TObject; Button: TMouseButton;  
  Shift: TShiftState; X, Y: Integer);  
begin  
if Button=mbRight then (Sender as TListbox).ItemIndex:=  
 (Sender as TListbox).ItemAtPos(Point(x,y),False);  
end;

Wenn du jetzt mit der rechten Taste auf einen Eintrag klickst, wird er markiert. Ist darunter kein Eintrag, wird die Markierung entfernt.

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme