(Resolvido) [Ajuda] InputBox

[» Frαnk ™]

Queria Fazer o Campo Senha aparacer Tipoo uma Máscara (****)

Meu Botão faz isso

Procedure...
var USU,SENH: String;
Begin
USU:=InputBox('Campo Usuário','Insira um Usuário',''));
SENH:=(InputBox('Campo Senha','Insira uma Senha',''));

if (DM1.IBDataset1.Locate('NOME',USU,[])) and (DM1.IBDataSet1.FieldByName('SENHA').asstring = SENH) then
  Begin
    Form1:=TForm1.Create(Application);
    Form1.ShowModal
  End
Else
  ShowMessage('Usuário  Ou  Senha  Estão  Incorretos ,  Digite  Novamente ! ! ! ');
End;

[Jhonas]

Queria Fazer o Campo Senha aparacer Tipo uma Máscara (****) em um inputbox

Faça as modificações no código para o seu uso

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

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: HWND;
begin
  hInputForm := Screen.Forms[0].Handle;
  if (hInputForm <> 0) then
  begin
    hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
    SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  InputString: string;
begin
  PostMessage(Handle, InputBoxMessage, 0, 0);
  InputString := InputBox('Senha', 'Digite a senha', '');
end;

end.

abraço

[» Frαnk ™]

Valeu Modifiquei pro meu código e funfo

Thank's :rolleyes: