Class TFindTarget (unit FindTarg) |
TComponent
Highlight with blinking Drop control(s) at form(s) when Drag&Drop operation took place. As a responce at message WM_LBUTTONDOWN, the application hook scans all controls for assigned OnDragOver and send to them OnDragOver message with Source object which lies at cursor and X,Y=-1,-1. Case returned value of CanAccept=True the control is included in list and becomes blinking to show anyone drag target. Using: simple put the component at main form. OnDragOver procedures of controls have to set appropriate value CanAccept with X,Y drag point= -1,-1. FreeWare. No warranties. If one will distribute the source code, reference on author (below) is required. If one will modify the source code, highlighting (by any means) of modifications is required. Author: Sergei Trepalin E-mail: trep@trep.home.chg.ru
Constructors |
-----------------------------------------------------------------------------
Functions |
TMyControl(FDragControl).
Windowed control - inverse all window
Properties |
Events |
Variables |
Constructors |
Public declarations
-----------------------------------------------------------------------------
Functions |
PaintControls;
Protected declarations
Release OnStartDrag,OnEndDrag for FDragControl
TMyControl(FDragControl).OnStartDrag:=FControlStartDrag; TMyControl(FDragControl).OnEndDrag:=FControlEndDrag;
Stores OnEndDrag for FDragControl
Windowed control - inverse all window
FControlStartDrag:=TMyControl(Control).OnStartDrag; FControlEndDrag:=TMyControl(Control).OnEndDrag; TMyControl(Control).OnStartDrag:=DragStart; TMyControl(Control).OnEndDrag:=DragEnd;
Frequency of FDragControl highlighting change
Properties |
Published declarations
Events |
Variables |
Private declarations
Stores OnStartDrag for FDragControl
Any can store own notifications in the methods
Stores current control which was started to drag
Has TRUE if targets are inverted
Possible trget for dragging control