| Class TMsgBox (unit msgbox) |
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);
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;