Bonjour,
j'utilise un CheckListBox, dans la fonction appellée par OnClickCheck, je fais unpour confirmer la suppresion d'un champ correspondant au CheckBox.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 if MessageDlg('Voulez-vous supprimer ce champ destination ?' , mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Mais parfois ensuite, la souris est en postion pour faire un DragDrop.
Pour info il y a unEt voici les évenements pris en chargeDragMode := dmAutomatic;
Merci.OnDragOver := sclbChamp_DragOver;
OnDragDrop := sclbChamp_DragDrop;
OnMouseDown := sclbChamp_MouseDown;
OnVerticalScroll := sclbChamp_VerticalScroll;
OnClickCheck := sclbChamp_ClickCheck;
Partager