Class TInputdlg (unit Inputdlg) |
Inherits from
TComponent
----------------------------------
constructor Create(AOwner: TComponent);
- Present:= Now;
DecodeDate(Present, Year, Month, Day);
isday := IntToStr(Day);
If isday = '1' then
begin
Showmessage('Inputdlg Version 2.
destructor Destroy;
procedure Execute;
--------------------------new bit
function GettheInput: Boolean;
procedure ShowAbout;
Text in the Object Inspector for the ABOUT property
property About : string
--------------new bit
property DefaultText : string
property FormCaption : string
property InitialText : string
property Prompt : String
--------------------------
property Inputtext : String
textout : String;
procedure CreateWnd ; override;
thetext : String;
FAbout : string;
FDefaultText : String;
FFormCaption : string;
new bit--------
FInitialText : string;
FInputText : string;
FPrompt : string;
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
destructor Destroy;
procedure Execute;
--------------------------new bit
function GettheInput: Boolean;
procedure ShowAbout;
Text in the Object Inspector for the ABOUT property
property About : string
--------------new bit
property DefaultText : string
property FormCaption : string
property InitialText : string
property Prompt : String
--------------------------
property Inputtext : String
textout : String;
procedure CreateWnd ; override;
thetext : String;
FAbout : string;
FDefaultText : String;
FFormCaption : string;
new bit--------
FInitialText : string;
FInputText : string;
FPrompt : string;