{******************************************************************************}
{                                                                              }
{                       Pascal Script Source File                              }
{                                                                              }
{             Run by RemObjects Pascal Script in CnPack IDE Wizards            }
{                                                                              }
{                                   Generated by CnPack IDE Wizards            }
{                                                                              }
{******************************************************************************}

program InputDialog;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ActnList, Buttons, ClipBrd, ComCtrls, ExtCtrls, ComObj, ExtDlgs, IniFiles,
  Menus, Printers, Registry, StdCtrls, TypInfo, ToolsAPI, CnDebug,
  RegExpr, ScriptEvent, CnCommon, CnWizClasses, CnWizUtils, CnWizIdeUtils,
  CnWizShortCut, CnWizOptions;

  // If need to access IDE Components, please uses IdeInstComp
var
  ACaption: string;
  APrompt: string;
  ARes: string;
begin
  ACaption := 'Hint';
  APrompt := 'Enter a Single Line String:'

  ARes := CnWizInputBox(ACaption, APrompt, '', nil, '');
  InfoDlg('You Enter: ' + ARes);

  APrompt := 'Enter some Multi-Line Strings:';
  ARes := CnWizInputMultiLineBox(ACaption, APrompt, '');
  InfoDlg('You Enter: ' + ARes);
end.
 
