Tips (1541)

Tip Bewertung (18):

{ 1.
  Set the font to Wingdings and then type on the
  PasswordChar := l;
}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Font.Name := 'Wingdings';
  Edit1.PasswordChar := 'l';
end;

{ 2.
  Set the font Charset to 2
  (Symbol_Charset) and then type on the PasswordChar := l; // ascii = 108
}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Font.Charset := 2;  //SYMBOL_CHARSET
  Edit1.PasswordChar := 'l'; //ascii = 108
end;