edit1.PasswordChar := '*';
yourPasswd := edit1.Text;
yourPasswd := edit1.Text;
解决方案 »
- listView的奇怪问题,你遇到过吗?很急呀
- 使用流向数据库中存储数据,为什么这样存不上?
- 文字设定
- quickrep中如何对每页数据进行累计,有很多页,最后在总计一下。回答都给分
- 请问怎样声明文件的时间属性的API啊?
- 哪位高手能指教我关于数码相机编程问题?
- 如何用CopyMemory的方法从Array of byte中取出String;
- 谁有fast report的中文教程?
- delphi各国语言显示
- 各位朋友,我想制作一个对table权限操作的Form,初步想定在DBgrid里放几个CheckBox,如增加,删除,修改,但不知如何操作才好,请各位提示
- 大家帮我看看
- 高手帮忙!程序顺序执行,当执行到50行的时候,想用一语句判断一下前面的50行是否产生了异常,有这样的函数吗?
你设置它的passwordChar就可以了,是在设计期;
把它的值给一个变量就可以啊;
顶楼说的对
然后在
procedure TForm1.Edit1Change(Sender: TObject);
var
tmpstr:string;
begin
tmpstr=Edit1.Text;
end;
这样就完成了!
别忘了加分,哦!