Class TRopInst (unit Ropwin) |
Inherits from
TForm
This is the window class don't install it. install Troppop.pas
TRopPop 1.0 (c) 1995 by Eyal Frank
Tel Aviv
Israel
CIS : 100274,3376
EMail frank-e@Trendline.co.il
This is my first component , i realy want to get any feedback,
So drop me an Email please.
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
sText.
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
right-side shadow
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure DoInit;
procedure CreateParams(var Params: TCreateParams);
procedure WMEraseBkng(var MSg:TWMEraseBkgnd);
call the inherited first
Timer1 : TTimer;
formBrush : TBrush;
sText : TStringList;
timerClose : Integer;
xPos : Integer;
yPos : Integer;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
sText.Add('XPos: '+IntToStr(XPos));
sText.Add('YPos: '+IntToStr(YPos));
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
right-side shadow
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure DoInit;
procedure CreateParams(var Params: TCreateParams);
procedure WMEraseBkng(var MSg:TWMEraseBkgnd);
call the inherited first
Timer1 : TTimer;
formBrush : TBrush;
sText : TStringList;
timerClose : Integer;
xPos : Integer;
yPos : Integer;