Class TDialog97 (unit Dialog97) |
TComponent
**************************************************************************** Freeware use and abuse Use at your own risk, no liablity for damages of any sort will be accept by the authors or anyone connected with them in anyway whatsoever TDialog97 a 97 style dialog for use with Delphi 1 & Delphi 3 (Different files for each) It combines the 3 ways of showing dialogs into one viz Execute,Showmessage,Messagedlg & also operates as an inputquery dialog Note: There is no wrap around for long , so if you are using long sentences then put in your own Carriage Returns. Authors Edward de la Rey & Paul Cook email:edwardr@mailbox.ru.ac.za Files: Dialog97.Pas - Install this one to install the component dialog97.dcr - Resource File for the component frmdlg97.dfm - Form file ie. Actual Dialog form frmdlg97.pas - Pas file for the form file Extra files: You will need the TExplorer freeware transparent button component installed for the Delphi 1 Version PROPERTIES: DialogType:TMsgDlgtype; DialogButtons: TMsgDlgButtons; HelpContextID: Integer; Msg:String; METHODS: InputQuery(const ACaption, APrompt: string; var Value: string): Integer; Shows as an input box, and returns the text entered, also returns mrResult value to say wether user pressed ok or cancel if no msgpassed then the msg property value is used if msg porperty is blank then no message displayed Execute: Shows the dialog form and returns result as ButtonPressed ie MROk,MRCancel etc or returns MRCANCEL if User Closes form without choosing uses the above properties ie Dialogtype etc ShowMessage(const Msg: string): Shows the dialog as an information dialog, using the message passed to it and an OK button, The name of the application's title file appears as the caption of the message box. Useful for debugging MessageDlg: Shows the dialog using the parameters passed across, returns button pressed or MRCANCEL if appropriate this is the same as normal messagedlg function EVENTS: None Note: When using the Showmessage feature, or if choosing the mtcustom message type, the caption displayed on the dialog is that of the application objects title
Constructors |
Functions |
with
Properties |
Events |
Variables |
Constructors |
Configure the dialog to show correctly
Functions |
-------------------------------------------------------------} {---------------------- TDialog97 --------------------------} {-------------------------------------------------------------
with
Method Used to Execute the dialog
with
Retore the component settings
Setup the dialog using UserAttributes
Create and run the dialog form
Properties |
execute is a method
Events |
Variables |
Message to be displayed
The Current Messagedlg type