Class TfMsgDlg (unit Timedmsg)

Inherits from

TForm

Constructors



Functions

procedure FormShow(Sender: TObject);


procedure TimerTimer(Sender: TObject);

if required setup timer

Properties

Events

Variables

Button : TBitBtn;


Glyph : TImage;


MsgLabel : TLabel;


SexLabel : TLabel;


Timer : TTimer;


AType : TTimedMsgDlgType;


Msg : String;


Seconds : Word;



Constructors


Functions


procedure FormShow(Sender: TObject);


procedure TimerTimer(Sender: TObject);

if required setup timer


Properties


Events


Variables


Button : TBitBtn;


Glyph : TImage;


MsgLabel : TLabel;


SexLabel : TLabel;


Timer : TTimer;


AType : TTimedMsgDlgType;


Msg : String;


Seconds : Word;