Class TForm2 (unit capture2)

Inherits from

TForm

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender: TObject);


procedure WMEraseBkGnd( Var Msg: TWMEraseBkGnd );


Properties

Events

Variables

fBmp : TBitmap;


fRect : TRect;

Public declarations

fDragging : Boolean;

Private declarations


Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormPaint(Sender: TObject);


procedure WMEraseBkGnd( Var Msg: TWMEraseBkGnd );


Properties


Events


Variables


fBmp : TBitmap;


fRect : TRect;

Public declarations


fDragging : Boolean;

Private declarations