| Class TInputdlg (unit Inputdlg) |
TComponent
----------------------------------
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Execute;
function GettheInput: Boolean;
procedure ShowAbout;| Properties |
property About : string
property DefaultText : string
property FormCaption : string
property InitialText : string
property Prompt : String
property Inputtext : String| Events |
| Variables |
textout : String;
thetext : String;
FAbout : string;
FDefaultText : String;
FFormCaption : string;
FInitialText : string;
FInputText : string;
FPrompt : string;| Constructors |
constructor Create(AOwner: TComponent);Present:= Now; DecodeDate(Present, Year, Month, Day); isday := IntToStr(Day); If isday = '1' then begin Showmessage('Inputdlg Version 2.32' + #13 + #13 + 'Evaluation Copy Only' + #13 + #13 + 'Copyright TPS Consulting' + #13 + 'E-Mail tps@netc.net.au'+ #13); end else
| Functions |
destructor Destroy;
procedure Execute;--------------------------new bit
function GettheInput: Boolean;
procedure ShowAbout;Text in the Object Inspector for the ABOUT property
| Properties |
property About : string--------------new bit
property DefaultText : string
property FormCaption : string
property InitialText : string
property Prompt : String--------------------------
property Inputtext : String| Events |
| Variables |
textout : String;procedure CreateWnd ; override;
thetext : String;
FAbout : string;
FDefaultText : String;
FFormCaption : string;new bit--------
FInitialText : string;
FInputText : string;
FPrompt : string;