Discussion :

[jujuesteban]

voilà j'ai une petite question
dans l'utilisation de la méthode DragDrop comme ceci :
ObjetDestinationDragDrop(Sender, Source: TObject; X, Y: Integer);
je voudrait utiliser l'objet source pour y appliquer des modification mais je me demandais comment faire :
ici j'utilise pas exemple des tbutton et je voudrais donc modifier les valeurs de placement :
source.left:=x;
source.top:=y;
mais cela ne fonctionne pas, pas plus que en
source^.left:=x;
source^.top:=y;

alors je ne comprends pas trop pkoi cela ne fonctionne pas pour la deuxième solution ... :

[darinze]

Sender et Source sont des TObject - càd des classes de base objet, abstraites

Un bouton (TButton) descend de TObject, càd qu'un TButton est FORCEMENT un TObject, alors qu'un TObject peut être autre chose qu'un TButton.

Tu dois traiter Sender comme un TButton. Pour cela tu déclares donc:

Code :

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

1
2
3
4
5
6
 
procedure ObjetDestinationDragDrop(Sender, Source: TObject; X, Y: Integer); 
var 
monbouton: tbutton
begin
  monbouton := (Source as TButton);

et là tu peux écrire:

Code :

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

1
2
3
 
  monbouton.Left := x;
 monbouton.Top := y;

[jujuesteban]

MERCI de ton aide !!! t'es un chef !!!

j'ai trop du mal cela fait 4 mois que je n'ai pas touché au delphi et je veux faire comme en java alors tout de suite cela va moins bien

[MD Software]

Pensez au tag [RESOLU]

[Nono40]

On peut aussi écrire directement :

Code :

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

1
2
Tbutton(Source).Left:=x;
Tbutton(Source).Top:=y;

[jujuesteban]

Merci de votre aide !!!
vous êtes touts des chefs