Chcialbym sobie uzyc w programie INPUTBOX'a do haselka, jednak nie mozna sobie zrobic tam zamiany literek znakiem '*'.
Jak mozna zrobic sobie takiego swojego Input'a ale zeby mozna go wywolac podobnie jak InputBox'a czyli:
InputBox('Podaj haslo','Haslo','');
i zeby zwracalo True albo False;
Ludzie... Nauczcie się myśleć! To naprawdę nie boli...
- zrób sobie nową formę (niech nie będzie tworzona automatycznie)
- niech wygląda jak inputbox z *
- zrób w module procedurkę:
function PasswordInputBox(Tytul, Tekst, PrawdziweHaslo: string): boolean;
var
Password: TPasswordForm;
begin
Result:=False;
Password:=TPasswordForm.Create(nil);
try
if Password.ShowModal = mrOK // nie jestem pewien nazwy stałej
if Password.edPassword.Text = PrawdziweHaslo then Result:=True
finally
Password.Free;
end;
end;
Of koz niech jakiś przycisk ma ModalResult na mrOK ustawiony, a inny na mrCancel.
b
ok, sorry za ten ton :) ale po przeczytaniu 2000 postów, z których odpowiedź na 1990 jest w FAQ człowiek robi się nerwowy... :)