Class TMsgDlg (unit Msgdlg)

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;


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;



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;