inputbox输入带星号的内容
2015-01-09 09:47
169 查看
最近在做一个项目,用到了inputbox,D自带的函数不能够像TEdit那样设置PassWordChar,在网上找到这个代码还不错,仅供参考,文章转载的地址忘记了,请作者原谅!
unit Mydialogs; interface uses Windows, Graphics, Forms, StdCtrls, Consts, Dialogs, Controls,SysUtils,Types; function GetAveCharSize(Canvas: TCanvas): TPoint; function InputBoxEx(const ACaption, APrompt, ADefault: string;PassWordChar: char = #0): string; implementation function GetAveCharSize(Canvas: TCanvas): TPoint; var I: Integer; Buffer: array[0..51] of Char; begin for I := 0 to 25 do Buffer[I] := Chr(I + Ord('A')); for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a')); GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result)); Result.X := Result.X div 52; end; function InputQueryEx(const ACaption, APrompt: string; var Value: string; APassWordChar: char = #0): Boolean; var Form: TForm; Prompt: TLabel; Edit: TEdit; DialogUnits: TPoint; ButtonTop, ButtonWidth, ButtonHeight: Integer; begin Result := False; Form := TForm.Create(Application); with Form do try Canvas.Font := Font; DialogUnits := GetAveCharSize(Canvas); BorderStyle := bsDialog; Caption := ACaption; ClientWidth := MulDiv(180, DialogUnits.X, 4); Position := poScreenCenter; Prompt := TLabel.Create(Form); with Prompt do begin Parent := Form; Caption := APrompt; Left := MulDiv(8, DialogUnits.X, 4); Top := MulDiv(8, DialogUnits.Y, 8); Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4); WordWrap := True; end; Edit := TEdit.Create(Form); with Edit do begin passwordchar := APassWordChar; Parent := Form; Left := Prompt.Left; Top := Prompt.Top + Prompt.Height + 5; Width := MulDiv(164, DialogUnits.X, 4); MaxLength := 255; Text := Value; SelectAll; end; ButtonTop := Edit.Top + Edit.Height + 15; ButtonWidth := MulDiv(50, DialogUnits.X, 4); ButtonHeight := MulDiv(14, DialogUnits.Y, 8); with TButton.Create(Form) do begin Parent := Form; Caption := SMsgDlgOK; ModalResult := mrOk; Default := True; SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth, ButtonHeight); end; with TButton.Create(Form) do begin Parent := Form; Caption := SMsgDlgCancel; ModalResult := mrCancel; Cancel := True; SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15, ButtonWidth, ButtonHeight); Form.ClientHeight := Top + Height + 13; end; if ShowModal = mrOk then begin Value := Edit.Text; Result := True; end; finally Form.Free; end; end; function InputBoxEx(const ACaption, APrompt, ADefault: string;PassWordChar: char = #0): string; begin Result := ADefault; InputQueryEx(ACaption, APrompt, Result, PassWordChar); end; end.
相关文章推荐
- 第 0012 题: 敏感词文本文件 filtered_words.txt,里面的内容 和 0011题一样,当用户输入敏感词语,则用 星号 * 替换,例如当用户输入「北京是个好城市」,则变成「**是个好
- iOS UITextView 输入内容实时更新cell的高度
- JS判断是否输入内容
- JavaScript split() 方法加上哈希函数实现表单输入框内容是否重复的判断
- jquery 遍历 TextBox 输入框求和,求平均值并判断输入内容是否为数字
- C# inputBox文字输入对话框,类似delphi的inputBox
- 正则表达式小脚本(对输入内容进行处理)
- javascript 控制input只允许输入的各种指定内容
- 1, 编写程序,当用户在文本框中输入内容之后,单机不同的按钮,能够把文半框中的内容粘贴到文本区中。“重置”按钮实现将文本框和文本区中的内容清空。界面上的文本区只能显示内容,不能让用户输入文本。运行结果
- iOS中使用正则表达式NSRegularExpression 来验证textfiled输入的内容
- Android中ClearEditText实现点击EditText输入框右边清除图标来清除输入内容的两种方式
- php把用户输入的内容写入文件中的代码
- JavaScript验证输入的string的内容是不是数值
- textview 弹出键盘上面添加完成按钮,并设置输入内容的格式。
- iOS UITextView 输入内容实时更新cell的高度
- 用户输入非法内容时的震动与动画提示——EditTextShakeHelper工具类介绍
- Java用字节输入输出流实现从一个文件到另一个文件的内容追加
- 用户输入内容长度限制的异常 分类: python异常 2013-06-24 10:48 335人阅读 评论(0) 收藏
- 用C语言实现输入密码以星号显示并判断密码是否正确
- EditText控件如何禁止输入内容