Un PopupMenu sous forme de checkList

**souminet** · 13/07/2008, 15h51

Bonjour à tous,
Voilà, je voudrais savoir quel composant utiliser pour pouvoir afficher une sorte de PopupMenu au dessus de mon bouton a chaque click....
La particularité de ce PopUpMenu est que ses items doivent être affichés en forme de checkList....

Je ne sais pas si c'est assez clair

Merci

**souminet** · 13/07/2008, 15h53

J'ai implémenté ce qui suit à l'événement OnMouseDown du bouton en question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TFArticle.ArticleMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   MyPoint: TPoint;
  begin
MyPoint := TButton(Sender).ClientToScreen(Point(X, Y));
PopMArticle.Popup(MyPoint.X, MyPoint.Y);
end;