Class TfTipOfTheDay (unit Totd)

Inherits from

TForm

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


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