delphi edit 让密码变成点

最新推荐文章于 2022-02-21 11:32:04 发布
最新推荐文章于 2022-02-21 11:32:04 发布
阅读量3.1k 收藏
点赞数
分类专栏： Delphi学习记录 文章标签： delphi xp

 

 

 

注意：这里不支持全角字符以及汉字，也就是这里面的值只能1字节！ 

如果要实现类似XP圆点的话 

可以把文本框Font设置成WingDings，再将PasswordChar设置成小写的"l"就会出现圆点的 

注意：PasswordChar的掩码是按照字体会调整

 

 

 

EricTsui
关注
专栏目录
editText设置密码隐藏和显示
安卓加油
11-09 1万+
LinearLayout xmlns:android="http://schemas.android.com/apk/res/android" xmlns:tools="http://schemas.android.com/tools" android:layout_width="match_parent" android:layout_height="match_
在delphi中实现密码框“大写锁定打开”的提示
Eric的学习日志博客
06-29 3900
<br />在登录windows时，如果大写锁定打开，且焦点处于密码输入框中，会出现气泡提示信息：“大写锁定打开 保持大写锁定打开可能会使你错误输入密码……”。<br />实现方式：<br /> <br />将edit控件的PasswChar设置成*，并在单元里面加入 uses XPMan。<br /><br />
Delphi操作InputBoxSetPasswordChar变成密码框示例源码.rar
07-10
对InputBoxSetPasswordChar操作： 　　procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage); 　　var 　　 hInputForm, hEdit: HWND; 　　begin 　　 hInputForm := Screen.Forms[0].Handle; 　　 if (hInputForm 0) then 　　 begin 　　 hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil); 　　 SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0); 　　 end; 　　end; 　　 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 InputString: string; 　　begin 　　 PostMessage(Handle, InputBoxMessage, 0, 0); 　　 InputString := InputBox('密码', '请输入相关密码：', ''); 　　 Edit1.Text := InputString; 　　end;
显示密码编辑框中的密码
zgqtxwd的专栏
05-01 419
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
delphi edit只能输入英文
10-08
### Delphi Edit 控件仅允许输入英文字符的实现方法 在Delphi开发环境中，经常会遇到需要控制用户输入的情况，比如只允许用户输入英文字符。本文将详细介绍如何通过Delphi的`Edit`控件来实现这一功能，并解释相关...
EditText密码明文暗文+以星号*显示
qq_42281792的博客
07-13 4341
文章目录实现效果需要注意的细节InputType对照表InputType实现密码隐藏可见星号显示 实现效果 需要注意的细节 默认的EditText样式有一条下划线，去掉他 android:background="@null" 默认的样式↓ 要求密码格式6~18位，设置最大长度18位，单行显示 android:singleLine="true" android:maxLength="1...
delphi控件使用
achs24540的博客
10-27 2364
Standard页 1- Tlistbox控件 重要属性items.* 举例，界面设计如下左，执行结果如下右： 代码为 procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text := listbox1.Items.CommaText; edit2.Text := listbo...
Delphi编写ActiveX控件及程序中嵌入word方案
流年~~
11-16 4427
ActiveX控件编写 1.ActiveX控件由来 在创建包括ActiveX程序时，主要的工作就是组件，一个可以自足的在ActiveX网络（现在的网络主要包括 Windows和Mac）中任意运行的程序。这个组件就是ActiveX近控件。ActiveX是Microsoft为抗衡Sun Microsystems的JAVA技术而提出的，此控件的功能和JAVA applet功能类似。
Delphi Edit右键系统菜单加自定义菜单项
10-18
Delphi Edit右键系统菜单加自定义菜单项，注意是添加，不是用新菜单替换系统菜单！
delphi unigui登录界面记住用户密码
01-19
delphi unigui登录界面记住用户密码
File Property Edit 3.02(批量修改文件或目录的属性和摘要属性)
06-26
File Property Edit 3.02(批量修改文件或目录的属性和摘要属性)
【3.Delphi常用组件】2.输入显示组件
chenhaiy的博客
02-21 1363
2.输入显示组件 2.1 Edit组件 编辑框 Edit 组件可用于输入文本，也可以显示文本。主要属性如下： 属性 说明 AutoSelect 设置组件获得焦点时，文本是否自动选中。 AutoSize 决定组件是否自动随字体的变化而改变大小。 Enable 设置编辑框是否能使用 BorderStyle 用来设置编辑框的边框类型，取值： bsSingle - 单线边框；bsNone - 无边框 MaxLength 设置编辑框所能接受的最大字符数
Wingdings 符号编码对照表
上善若水 的专栏
12-18 1万+
符号 编码HTML 代码 符号 编码HTML 代码!!!" />"""" />###" />$$$" />%%%" />&&&" />''
excel CONCATENATE 中的换行
热门推荐
zhouyong0的专栏
06-18 1万+
=CONCATENATE("您好",CHAR(10),"小强") 1. 被应用的格子的格式是自动换行的 2. CHAR(10)  表示换行
Crystal Report CheckBox
心灵的足迹
01-05 810
Wingdings字体中有各种各样有趣的字符，其中有5个字符可以被用来显示Checkbox创建一个公式字段(formula)，添加如下的公式if {Table.Field} = true then    // Display the checkbox of your choice here    return Chr(254)else    // Display empty checkbox    return Chr(168)end if
Delphi编程基础：Edit属性详解
"这篇教程详细介绍了Delphi编程环境中Edit控件的主要属性，包括AutoSelect、AutoSize、Enable、BorderStyle、MaxLength、PasswordChar和ReadOnly。同时，提到了Delphi的发展历程和Delphi7集成开发环境（IDE）的组成...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值