InputQuery
11/03/2003
0
Eu inclui a API do Windows Input query, na minha aplicação ela serve para login e a senha, porém a senha eu gostaria que fosse formatada como * durante a digitação, como eu faço isso?
Grato pela atenção
Rafael Vinicius
Express Systems and Solutions
reifas@brfree.com.br
rvinicius@semcorgis.com.br
Grato pela atenção
Rafael Vinicius
Express Systems and Solutions
reifas@brfree.com.br
rvinicius@semcorgis.com.br
Reifas
Curtir tópico
+ 0
Responder
Posts
11/03/2003
Navoid
bom cara primeiramente pelo que sei (e pode-se verificar isso no delphi) inputquery num é api do windows mas sim uma função disponibilizada pelo delphi.
se vc clicar em cima da palavra inputquery utilizando o botão esquerdo do mouse com o ctrl pressionado, ele irá abrir a unit com a função e vc verá que num é uma api.
se for assim, num é possível formatar o edit para mostrar *
até
se vc clicar em cima da palavra inputquery utilizando o botão esquerdo do mouse com o ctrl pressionado, ele irá abrir a unit com a função e vc verá que num é uma api.
se for assim, num é possível formatar o edit para mostrar *
até
Responder
11/03/2003
Aroldo Zanela
Eu inclui a API do Windows Input query, na minha aplicação ela serve para login e a senha, porém a senha eu gostaria que fosse formatada como * durante a digitação, como eu faço isso?
Grato pela atenção
Rafael Vinicius
Express Systems and Solutions
reifas@brfree.com.br
rvinicius@semcorgis.com.br
Existem componentes especializados para isso e são freeware, como é o caso da RxLib e ProLib.
Você pode também alterar a função inputQuery, sem nenhum esforço, conforme no exemplo abaixo:
function TForm1.InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; var Form: TForm; Prompt: TLabel; Edit: TEdit; DialogUnits: TPoint; ButtonTop, ButtonWidth, ButtonHeight: Integer; begin Result := False; Form := TForm.Create(Application); with Form do try Canvas.Font := Font; DialogUnits := GetAveCharSize(Canvas); BorderStyle := bsDialog; Caption := ACaption; ClientWidth := MulDiv(180, DialogUnits.X, 4); ClientHeight := MulDiv(63, DialogUnits.Y, 8); Position := poScreenCenter; Prompt := TLabel.Create(Form); with Prompt do begin Parent := Form; AutoSize := True; Left := MulDiv(8, DialogUnits.X, 4); Top := MulDiv(8, DialogUnits.Y, 8); Caption := APrompt; end; Edit := TEdit.Create(Form); with Edit do begin Parent := Form; PasswordChar := ´*´; // AZ Left := Prompt.Left; Top := MulDiv(19, DialogUnits.Y, 8); Width := MulDiv(164, DialogUnits.X, 4); MaxLength := 255; Text := Value; SelectAll; end; ButtonTop := MulDiv(41, DialogUnits.Y, 8); ButtonWidth := MulDiv(50, DialogUnits.X, 4); ButtonHeight := MulDiv(14, DialogUnits.Y, 8); with TButton.Create(Form) do begin Parent := Form; Caption := ´Ok´; // AZ ModalResult := mrOk; Default := True; SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth, ButtonHeight); end; with TButton.Create(Form) do begin Parent := Form; Caption := ´Cancelar´; // AZ ModalResult := mrCancel; Cancel := True; SetBounds(MulDiv(92, DialogUnits.X, 4), ButtonTop, ButtonWidth, ButtonHeight); end; if ShowModal = mrOk then begin Value := Edit.Text; Result := True; end; finally Form.Free; end; end; function TForm1.GetAveCharSize(Canvas: TCanvas): TPoint; var I: Integer; Buffer: array[0..51] of Char; begin for I := 0 to 25 do Buffer[I] := Chr(I + Ord(´A´)); for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord(´a´)); GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result)); Result.X := Result.X div 52; end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)