正常显示:Edit1.PasswordChar=#0; 显示“*”:Edit1.PasswordChar='*'; 所以,只要判断“if Edit1.PasswordChar='*' then ... ”就行了。
看看Edit控件的PasswordChar属性就行了。 当它为#0时是没有使用字符替代的。
如果是其它程序中的TEdit控件呢???
//try procedure TForm1.Button1Click(Sender: TObject); var vPasswordChar: Char; begin Byte(vPasswordChar) := SendMessage(Edit1.Handle, EM_GETPASSWORDCHAR, 0, 0); if vPasswordChar <> #0 then begin { TODO : 这里处理 } end; end;
显示“*”:Edit1.PasswordChar='*';
所以,只要判断“if Edit1.PasswordChar='*' then ... ”就行了。
当它为#0时是没有使用字符替代的。
procedure TForm1.Button1Click(Sender: TObject);
var
vPasswordChar: Char;
begin
Byte(vPasswordChar) := SendMessage(Edit1.Handle, EM_GETPASSWORDCHAR, 0, 0);
if vPasswordChar <> #0 then begin
{ TODO : 这里处理 }
end;
end;