procedure TForm1.ShellListView1EndDrag(Sender, Target: TObject; X,
Y: Integer);
begin
if Target = Panel1 then
showmessage('shelleListView a recu OnDragEnd avec Target=panel1');
end;
procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin Accept :Source ShellListView1;
end;
procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
showmessage('Panel1 a recu OnDragDrop');
end;
simo5963
Messages postés127Date d'inscriptionvendredi 12 octobre 2007StatutMembreDernière intervention24 mars 20091 19 janv. 2008 à 18:04
bonjour;
procedure TForm1.ShellListView1EndDrag(Sender, Target: TObject; X,
Y: Integer);
begin
if Target = Panel1 then
showmessage('shelleListView a recu OnDragEnd avec Target=panel1');//affichage de message c'est rien
end;
Ca veut dire quoi ? Je ne comprends pas
Je veux l’implémentation de cette procédure
Merci!!!!
oO SiMo Oo oO BeauTiFul MinD Oo
Vous n’avez pas trouvé la réponse que vous recherchez ?