Delphi InputBox для ввода пароля?
сайт inputbox:
answer:=Inputbox('a','b','c');
работает хорошо, но я ищу замаскированный, как поле пароля, где вы видите только маленькие звезды вместо введенных символов.
5 ответов
вы можете отправить сообщение Windows в элемент управления редактирования, созданный InputBox
, который будет помечать элемент управления edit для ввода пароля. Код ниже взят изhttp://www.swissdelphicenter.ch/en/showcode.php?id=1208:
const
InputBoxMessage = WM_USER + 200;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
var
hInputForm, hEdit, hButton: HWND;
begin
hInputForm := Screen.Forms[0].Handle;
if (hInputForm <> 0) then
begin
hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
{
// Change button text:
hButton := FindWindowEx(hInputForm, 0, 'TButton', nil);
SendMessage(hButton, WM_SETTEXT, 0, Integer(PChar('Cancel')));
}
SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
InputString: string;
begin
PostMessage(Handle, InputBoxMessage, 0, 0);
InputString := InputBox('Input Box', 'Please Enter a Password', '');
end;
в XE2 в, InputBox()
и InputQuery()
были обновлены, чтобы изначально поддерживать маскировку TEdit
ввод, хотя эта функция еще не была документирована. Если первый символ APrompt
параметр имеет любое значение #32 тут TEdit.PasswordChar
будет установлен в *
, например:
answer := InputBox('a', #31'b', 'c');
InputBox вызывает функцию InputQuery в диалоговых окнах, которая создает форму динамически. Вы всегда можете сделать копию этой функции и изменить свойство PasswordChar TEdit.
Я не думаю, что Delphi включает такую вещь из коробки. Может быть, вы можете найти его в http://www.torry.net/ или в другом месте в сети. В противном случае просто напишите один сам - не должно быть так сложно. :- ) Вы даже можете посмотреть исходный код, если у вас есть "достаточно большая" версия Delphi.
Ули.
вы можете использовать InputQuery вместо InputBox. Если задан аргумент TRUE, поле пароля будет замаскировано.
InputQuery('Authenticate', 'Password:',TRUE, value);
некоторый ресурс здесь;http://lazarus-ccr.sourceforge.net/docs/lcl/dialogs/inputquery.html