Can anyone help on how to hide the password on this code.
i want the output like when I input a character in input box it looks like this '*'.
This is the code:
procedure Form1_Button7_OnClick (Sender: string; var Cancel: boolean);
begin
If InputBox('To continue, enter Admin Password!', 'Enter Password:', '')='xray2024' then
begin
Form1.Button6.click;
end else
begin
MessageDlg('Incorrect Password', mtError, mbOk, 0);
end;
end;