Il y a tout ce qu'il faut dans la VCL, voici un exemple (volontairement détaillé) :
procedure TForm1.miTestClick(Sender: TObject);
var
popup: TPopupMenu;
component: TComponent;
begin
...
Type: Messages; Utilisateur: Pierre Castelain
Il y a tout ce qu'il faut dans la VCL, voici un exemple (volontairement détaillé) :
procedure TForm1.miTestClick(Sender: TObject);
var
popup: TPopupMenu;
component: TComponent;
begin
...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.