I want to toggle the mouseinteract by startdrag and dragend. when mouse drag,imageen response miscroll,and mouse click,imageen response miobjectselect.but it cannot work.
procedure Tfrm1.img1StartDrag(Sender: TObject; var DragObject: TDragObject); begin img1.MouseInteract:=[miScroll]; end;
procedure Tfrm1.img1EndDrag(Sender, Target: TObject; X, Y: Integer); begin img1.MouseInteractVt:=img1.MouseInteractVt+[miObjectSelect]; end;
Search
miscroll and miselect
Posted - Nov 04 2012 : 05:42:20
