| Class TRopInst (unit Ropwin) |
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.
| Constructors |
| Functions |
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
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);| Properties |
| Events |
| Variables |
Timer1 : TTimer;
formBrush : TBrush;
sText : TStringList;
timerClose : Integer;
xPos : Integer;
yPos : Integer;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
Timer1 : TTimer;
formBrush : TBrush;
sText : TStringList;
timerClose : Integer;
xPos : Integer;
yPos : Integer;