Drag and drop
Hnimsgern
Messages postés
48
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
4 mars 2005
-
29 déc. 2003 à 10:08
Hnimsgern Messages postés 48 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 mars 2005 - 31 déc. 2003 à 09:33
Hnimsgern Messages postés 48 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 mars 2005 - 31 déc. 2003 à 09:33
2 réponses
cs_ManChesTer
Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021
30 déc. 2003 à 14:02
30 déc. 2003 à 14:02
N'aurais tu pas oublier dans Published
published
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
Property OnStartDrag;
Bon Coding ....
ManChesTer.
published
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
Property OnStartDrag;
Bon Coding ....
ManChesTer.
Hnimsgern
Messages postés
48
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
4 mars 2005
31 déc. 2003 à 09:33
31 déc. 2003 à 09:33
Merçi de m'avoir répondu.
Non je n'ai pas oublié ces déclarations.
Extrait de mon code pour deux boutons:
procedure TForm1.bButton1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(Sender as TButton).Caption:=(Source as TButton).Caption;
end;
procedure TForm1.bButton1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source is Tbbutton;
end;
A+
HN
Non je n'ai pas oublié ces déclarations.
Extrait de mon code pour deux boutons:
procedure TForm1.bButton1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(Sender as TButton).Caption:=(Source as TButton).Caption;
end;
procedure TForm1.bButton1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source is Tbbutton;
end;
A+
HN