Class TMsgBox (unit msgbox)

Inherits from

TComponent

************************************************************************}

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


function Exe(TheMsg: TCaption;TheButtons:TMsgDlgButtons): Word;


function Execute: Word;


function ExePosition(TheMsg: TCaption;TheButtons:TMsgDlgButtons;X,Y:Integer): Word;


function ExeWave(TheMsg: TCaption;TheButtons:TMsgDlgButtons;TheWave: TFileName) : Word;


function CreateMessageDialog(const Msg: TCaption; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;


procedure GetModalResult(sender : TObject);

button create with} {Set Button Focus

function MyMessageDlg(const Msg: TCaption; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;HelpCtx: Longint; X,Y: Integer): Integer;


procedure setAlignment(value: TAlignment);


procedure setButtonFont(value : TFont);


procedure SetButtons(Value: TMsgDlgButtons);


procedure setClearButton(value:boolean);


procedure setCustomIcon(value : TTheIcons);


procedure setCustomTitleText(value : TCaption);


procedure setDialogStyle(value : TDialogStyle);


procedure SetFlashRate(value : word);


procedure SetFlashWindow(value : Boolean);

-------------------------------------------------------------------------

procedure setFont(value : TFont);


procedure SetHelpIndex(Value : Integer);


procedure setIconExternal(value : TIcon);


procedure setIconSource(value : TIconSource);


procedure setPlayWav(value : TMessageWave);


procedure SetSymbol(Value: TSymbol);


procedure SetText(Value: TCaption);


procedure setTheBtnFocus(value : TMsgDlgBtn);


procedure setTitleOptions(value : TTitleOptions);


procedure setUseGlyth(value : Boolean);


procedure setWavFileName(value : TFileName);


procedure setXposition(value : Integer);


procedure setYposition(value : Integer);


Procedure Timer1Timer(Sender: TObject);


Properties

property ButtonFocus : TMsgDlgBtn


property ButtonFont : TFont


property Buttons : TMsgDlgButtons


property ButtonUseGlyth : Boolean


property ClearButton : Boolean


property DialogStyle : TDialogStyle


property FlashRate : Word


property FlashTheWindow : Boolean


property HelpIndex : Integer


property IconCustom : TTheIcons


property IconExternal : Ticon


property IconSource : TIconSource


property PlayWav : TMessageWave


property Symbol : TSymbol


property TextAlignment : TAlignment


property TextFont : TFont


property TextMsg : TCaption


property TitleCustomText : TCaption


property TitleOptions : TTitleOptions


property WavFileName : TFileName


property Xposition : Integer


property Yposition : Integer


Events

Variables

FAlignment : TAlignment;


FButtonFont : TFont;


FButtons : TMsgDlgButtons;


fClearButton : Boolean;


FCustomIcon : TTheIcons;


FCustomTitleText : TCaption;


FDialogStyle : TDialogStyle;


FFlashRate : word;


FFlashWindow : Boolean;


FFont : TFont;


FHelpIndex : Integer;


FIconExternal : TIcon;


FIconSource : TIconSource;


FPlayWav : TMessageWave;


FSymbol : TSymbol;


FText : TCaption;


FTheBtnFocus : TMsgDlgBtn;


FTheForm : TForm;


FTimer : TTimer;


FTitleOptions : TTitleOptions;


FUseGlyth : Boolean;


FWavFileName : TFileName;


FXposition : Integer;


FYposition : Integer;


mcButtonSpacing : integer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


function Exe(TheMsg: TCaption;TheButtons:TMsgDlgButtons): Word;


function Execute: Word;


function ExePosition(TheMsg: TCaption;TheButtons:TMsgDlgButtons;X,Y:Integer): Word;


function ExeWave(TheMsg: TCaption;TheButtons:TMsgDlgButtons;TheWave: TFileName) : Word;


function CreateMessageDialog(const Msg: TCaption; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): TForm;


procedure GetModalResult(sender : TObject);

button create with} {Set Button Focus


function MyMessageDlg(const Msg: TCaption; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;HelpCtx: Longint; X,Y: Integer): Integer;


procedure setAlignment(value: TAlignment);


procedure setButtonFont(value : TFont);


procedure SetButtons(Value: TMsgDlgButtons);


procedure setClearButton(value:boolean);


procedure setCustomIcon(value : TTheIcons);


procedure setCustomTitleText(value : TCaption);


procedure setDialogStyle(value : TDialogStyle);


procedure SetFlashRate(value : word);


procedure SetFlashWindow(value : Boolean);

-------------------------------------------------------------------------


procedure setFont(value : TFont);


procedure SetHelpIndex(Value : Integer);


procedure setIconExternal(value : TIcon);


procedure setIconSource(value : TIconSource);


procedure setPlayWav(value : TMessageWave);


procedure SetSymbol(Value: TSymbol);


procedure SetText(Value: TCaption);


procedure setTheBtnFocus(value : TMsgDlgBtn);


procedure setTitleOptions(value : TTitleOptions);


procedure setUseGlyth(value : Boolean);


procedure setWavFileName(value : TFileName);


procedure setXposition(value : Integer);


procedure setYposition(value : Integer);


Procedure Timer1Timer(Sender: TObject);


Properties


property ButtonFocus : TMsgDlgBtn


property ButtonFont : TFont


property Buttons : TMsgDlgButtons


property ButtonUseGlyth : Boolean


property ClearButton : Boolean


property DialogStyle : TDialogStyle


property FlashRate : Word


property FlashTheWindow : Boolean


property HelpIndex : Integer


property IconCustom : TTheIcons


property IconExternal : Ticon


property IconSource : TIconSource


property PlayWav : TMessageWave


property Symbol : TSymbol


property TextAlignment : TAlignment


property TextFont : TFont


property TextMsg : TCaption


property TitleCustomText : TCaption


property TitleOptions : TTitleOptions


property WavFileName : TFileName


property Xposition : Integer


property Yposition : Integer


Events


Variables


FAlignment : TAlignment;


FButtonFont : TFont;


FButtons : TMsgDlgButtons;


fClearButton : Boolean;


FCustomIcon : TTheIcons;


FCustomTitleText : TCaption;


FDialogStyle : TDialogStyle;


FFlashRate : word;


FFlashWindow : Boolean;


FFont : TFont;


FHelpIndex : Integer;


FIconExternal : TIcon;


FIconSource : TIconSource;


FPlayWav : TMessageWave;


FSymbol : TSymbol;


FText : TCaption;


FTheBtnFocus : TMsgDlgBtn;


FTheForm : TForm;


FTimer : TTimer;


FTitleOptions : TTitleOptions;


FUseGlyth : Boolean;


FWavFileName : TFileName;


FXposition : Integer;


FYposition : Integer;


mcButtonSpacing : integer;