Excuse. J'ai fait une erreur.
Const
Clique : Integer = 0;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Type: Messages; Utilisateur: Philippe Gormand
Excuse. J'ai fait une erreur.
Const
Clique : Integer = 0;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Bonjour.
Voici un code qui fonctionne. Si ça peut t'aider...
Const
Clique : Integer = 0;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
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.