Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Menü über rechte Maustaste
schuri - So 18.07.04 10:00
Titel: Menü über rechte Maustaste
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 - So 18.07.04 10:02
Hallo
Popupmenü auf das formular legen und dieses dem "listenfeld" im objektinspektor zuweisen.
Gruß
Ken
schuri - So 18.07.04 11:43
ok, danke!
das mit dem menü hab ich, aber der selektiert ja nich den eintrag unter dem cursor....
maxk - So 18.07.04 19:33
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.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!
ITEMATPOS ITEMINDEX