Class TFrmMoveText (unit MoveText)

Inherits from

TForm

Constructors



Functions

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


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


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


Properties

Events

Variables

Image1 : TImage;


Label1 : TLabel;


FCurX : integer;

Private declarations

FCurY : integer;



Constructors


Functions


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


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


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


Properties


Events


Variables


Image1 : TImage;


Label1 : TLabel;


FCurX : integer;

Private declarations


FCurY : integer;