Class TInputdlg (unit Inputdlg)

Inherits from

TComponent

----------------------------------

Constructors


constructor Create(AOwner: TComponent);

Present:= Now; DecodeDate(Present, Year, Month, Day); isday := IntToStr(Day); If isday = '1' then begin Showmessage('Inputdlg Version 2.


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;



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;