- procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- var
- PosSouris: TPoint;
- begin
- if Button = mbRight then //si c le bouton droit
- begin
- GetCursorPos(PosSouris); // récupération de la position de la souris
- TrackPopupMenu(LeMenu.Handle, TPM_LEFTBUTTON or TPM_LEFTALIGN,PosSouris.X, PosSouris.Y, 0, Handle, nil);
- //Changer LeMenu par la nom du menu a afficher
- end;
- end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
PosSouris: TPoint;
begin
if Button = mbRight then //si c le bouton droit
begin
GetCursorPos(PosSouris); // récupération de la position de la souris
TrackPopupMenu(LeMenu.Handle, TPM_LEFTBUTTON or TPM_LEFTALIGN,PosSouris.X, PosSouris.Y, 0, Handle, nil);
//Changer LeMenu par la nom du menu a afficher
end;
end;