| Class TMsgDlg (unit Msgdlg) |
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;
function GetAveCharSize(Canvas: TCanvas): TPoint;
procedure GetModalResult(sender : TObject);
function Max(I, J: Integer): Integer;
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 setCustomTitleText(value : TCaption);
procedure setDialogStyle(value : TDialogStyle);
procedure SetFlashRate(value : word);
procedure SetFlashWindow(value : Boolean);
procedure setFont(value : TFont);
procedure SetHelpIndex(Value : Integer);
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 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;
FCustomTitleText : TCaption;
FDialogStyle : TDialogStyle;
FFlashRate : word;
FFlashWindow : Boolean;
FFont : TFont;
FHelpIndex : Integer;
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;
function GetAveCharSize(Canvas: TCanvas): TPoint;
procedure GetModalResult(sender : TObject);------------------------------------------------------------------------------
function Max(I, J: Integer): Integer;
function MyMessageDlg(const Msg: TCaption; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Integer;button create with} {Set Button Focus
procedure setAlignment(value: TAlignment);
procedure setButtonFont(value : TFont);
procedure SetButtons(Value: TMsgDlgButtons);
procedure setClearButton(value:boolean);
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 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 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;
FCustomTitleText : TCaption;
FDialogStyle : TDialogStyle;
FFlashRate : word;
FFlashWindow : Boolean;
FFont : TFont;
FHelpIndex : Integer;
FPlayWav : TMessageWave;
FSymbol : TSymbol;
FText : TCaption;
FTheBtnFocus : TMsgDlgBtn;
FTheForm : TForm;
FTimer : TTimer;
FTitleOptions : TTitleOptions;
FUseGlyth : Boolean;
FWavFileName : TFileName;
FXposition : Integer;
FYposition : Integer;
mcButtonSpacing : integer;