Class TDrawShape (unit Unit1)

Inherits from

TShape

Constructors



Functions

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


Properties

Events

Variables

Grabbed : Boolean;


XX : Integer;


YY : Integer;



Constructors


Functions


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseMove(Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


Properties


Events


Variables


Grabbed : Boolean;


XX : Integer;


YY : Integer;