这样应该可以的,你试一试吧!<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>Edit1.Font.Name:='Marlett';//设置字体,很重要<br>//你也可以改变其它字体<br>//Edit1.Font.Name:='Webdings';<br>//Edit1.Font.Name:='Wingdings 3';<br>Edit1.PasswordChar:='n';//注意是小写不是大写<br>//改变后面的字符变量可以得到不同的效果<br>//Edit1.PasswordChar:='g';可以得到方形<br>//其它的你自己试试<br>end;