Une simulation de Drag fortuite.
Bonjour,
j'utilise un CheckListBox, dans la fonction appellée par OnClickCheck, je fais un
Code:
1 2
| if MessageDlg('Voulez-vous supprimer ce champ destination ?'
, mtConfirmation, [mbYes, mbNo], 0) = mrYes then |
pour confirmer la suppresion d'un champ correspondant au CheckBox.
Mais parfois ensuite, la souris est en postion pour faire un DragDrop.
Pour info il y a un
Citation:
DragMode := dmAutomatic;
Et voici les évenements pris en charge
Citation:
OnDragOver := sclbChamp_DragOver;
OnDragDrop := sclbChamp_DragDrop;
OnMouseDown := sclbChamp_MouseDown;
OnVerticalScroll := sclbChamp_VerticalScroll;
OnClickCheck := sclbChamp_ClickCheck;
Merci.