input.pas

SkyEdit是一个可用彩色语法来显示及编辑各种开发语言源代码的编辑器控件。

unit Input;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TInputForm = class(TForm)
    lblInput: TLabel;
    edtInput: TEdit;
    btnOk: TButton;
    btnCancel: TButton;
    procedure edtInputChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function InputStr(ACaption, APrompt: String; ADefault: String = '';
                    AMaxLen: Integer = 0; AUseCN: Boolean = False;
                    AOnlyNum: Boolean = False): String;

var
  InputForm: TInputForm;

implementation

{$R *.DFM}

procedure TInputForm.edtInputChange(Sender: TObject);
begin
  btnOk.Enabled := boolean(edtInput.GetTextLen);
end;

function InputStr(ACaption, APrompt: String; ADefault: String; AMaxLen: Integer;
                  AUseCN: Boolean; AOnlyNum: Boolean): String;
begin
  Result := '';
  with TInputForm.Create(Application) do
    try
      Caption            := ACaption;
      lblInput.Caption   := APrompt;
      edtInput.Text      := ADefault;
      edtInput.MaxLength := AMaxLen;
      edtInput.SelectAll();
      if AUseCN then
      begin
        edtInput.ImeMode := imChinese;
        edtInput.ImeName := '王码五笔型输入法98版';
      end;
      if AOnlyNum then
        SetWindowLong(edtInput.Handle, GWL_STYLE,
                      GetWindowLong(edtInput.Handle, GWL_STYLE) or ES_NUMBER);

      if ShowModal() = mrOk then
        Result := edtInput.Text;
    finally
      Free;
    end;
end;

end.