05. november 2002 - 13:34Der er
8 kommentarer og 1 løsning
mouse posision
Hej!!
Når jeg højre klikker på min listbox, skal der komme en popup menu frem hvor musen har trykket!! Hvordan gør man det... Ved godt hvordan man bruger en popupmenu1.popup( ?,? ),
Hvordan får jeg den til at gøre det ved at højre klikke?
Hvordan får jeg den til at popupe hvor musen har trykket?
??? er det det her du mener? procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if button = mbRight then popupmenu1.popup(getcursorpos); end;
hmm ok.. jeg testede det heller ik lige.. prøv noget med: procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var pt : TPoint; begin getcursorpos(pt); if button = mbRight then popupmenu1.popup(pt.x,pt.y); end;
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.