InputBox для ввода пароля |
Previous Top Next |
Code: |
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; |
©Drkb::04031
Взято с сайта: http://www.swissdelphicenter.ch