[Delphi] PopupMenu

0

Jak zrobić, aby po wciśnieciu LPM rozwijał się PopupMenu?

Chodzi mi o Delphi6.

0

W OnMouseDown (OnMouseUp):

PopupMenu1.Popup(Point(X, Y))
czy też:
PopupMenu1.Popup(X, Y)

Nie pamiętam składni.

0

1) wsadź na formę komponent TPopUpMenu
2) stwórz jakieś menu - w Popup'ie

na formie - OnMouseDown:

begin
if (Button = mbRight) then
PopupMenu1.Popup(mouse.CursorPos.X, mouse.CursorPos.Y);
end;

albo prościej:

Events - na formie (2 zakładka w OI[Object Inspector]) właściwość
PopupMenu - wybierz nazwę PopUp'a

0

Dzieki Wam!

0

chyba w popup menu jest lefttract albo coś takiego

0

chyba w popup menu jest lefttract albo coś takiego

Jest zdaje się trackbutton, ale nie działa to tak, jak miało być w pytaniu (właściwie sam ni wiem, co to daje :) )

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0