(Turbo Debugger) 3.0


3.0 - . 300


:


TDeb 3.0 #3-3 = 64 =
procedure WMMouseMove(var Msg: TMessage); virtual WM_MOUSE;
, WM_MOUSEMOVE -
virtual <-
>, .
Windows wParam lParam
TMessage. -
, , "".
,
TDODEMOB. ,
. -
Windows TDODEMOB.PAS, -
.
ScribbleWindow
-----------------------------------------------------------------
ScribbleWindow :
class ScribbleWindow : public TWindow
{
public:
HDC HandleDC; //
BOOL ButtonDown; //
HPEN ThePen; // ,
//
ScribbleWindow(PTWindowObject AParent, LPSTR ATitle);
-ScribbleWindow();
void GetWindowClass(WNDCLASS &AWndClass);
virtual void WMLButtonDown(RTMessage
Msg)=[WN_First+WM_LBUTTONDOWN];
virtual void WMLButtonUp(RTMessage MSG)=(WM_FIRST+
WM_LBUTTONUP);
virtual void WMLMouseMove(RTMessage MSG)=(WM_FIRST+
WM_MOUSEMOVE);
virtual void WMLButtonDown(RTMessage MSG)=(WM_FIRST+