| Class TfTipOfTheDay (unit Totd) |
TForm
| Constructors |
| Functions |
procedure bClick(Sender: TObject);
procedure bCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure GetTip (Next : Boolean);| Properties |
| Events |
| Variables |
bClose : TBitBtn;
Bevel1 : TBevel;
bNext : TBitBtn;
bPrevious : TBitBtn;
cbShowTips : TCheckBox;
iBulb : TImage;
lTip : TLabel;
lTitle : TLabel;
Panel1 : TPanel;
CurrentTip : Integer;
Tips : TStringList;| Constructors |
| Functions |
procedure bClick(Sender: TObject);show it!
procedure bCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);get a tip
procedure FormDestroy(Sender: TObject);Try
procedure GetTip (Next : Boolean);| Properties |
| Events |
| Variables |
bClose : TBitBtn;
Bevel1 : TBevel;
bNext : TBitBtn;
bPrevious : TBitBtn;
cbShowTips : TCheckBox;
iBulb : TImage;
lTip : TLabel;
lTitle : TLabel;
Panel1 : TPanel;
CurrentTip : Integer;Public declarations
Tips : TStringList;Private declarations