Discussion :

[Nebulix]

Bonjour
J'utilise Delphi7 et je voudrais faire glisser un Tlabel sur une fiche
Si dragmode est dmmanuel, il ne se passe rien, je le mets à dmautomatic.
Si dragkind est dkdrag, je ne vois qu'un curseur "interdit".
S'il est à dkdock, ça marche mais je n'obtiens plus un tlabel mais un drôle de truc, qui ressemble à une fenêtre.
L'aide est désespérément absconse
Merci

[BuzzLeclaire]

Bonjour,

Regarde ce lien

http://www.developpez.net/forums/d39...ts-lexecution/

Bye

[Nebulix]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(source as tlabel).left:=x;(source as tlabel).top:=y;
end;
 
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TLabel;
end;

J'avais omis la 2e procédure.