InputBox

0

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;

0

Propopnuje: najpierw zdeklarowac funkcje Function haslo(a:string,b:string,c:string):boolean;
w tej funkcji dynamicznie stworzyc forme i edity. Sprawdzac zmienne a,b,c czy ktoras nie jest pusta a nastepnie sprawdzic ja z prawdziwym haslem (a-caption, b -napis, [b]c-edit.text[/b]), jezeli haslo sie zgadza to
result:=true.
{dopisane}
Freebird'zie jesli chcesz kod to masz go ponizej

0

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...

  1. zrób sobie nową formę (niech nie będzie tworzona automatycznie)
  2. niech wygląda jak inputbox z *
  3. 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... :)

0

Dzięki Vogel. Dokladnie o to mi chodzilo.

Chociaz szkoda ze twoja odpowiedz musiala sie rownac pewnemu ponizeniu mojej osoby.
W koncu nie kazdy wie wszystko, przypuszczam, ze wiem wiele rzeczym o ktorych ty mogles nie slyszec, ja akurat nie wiedzialem jak sobie z takim problemem poradzic.
Teraz juz wiem dzieki tobie, a ja ucze sie na bledach i dobrych radach, wiec juz po problemie.

Pozdrawiam.

Ps. Przepraszam za tego posta, ale edycja mojego pierwszego posta nie oddala by sensu wypowiedzi.

1 użytkowników online, w tym zalogowanych: 0, gości: 1