04-09-2017, 09:31 PM
[color=#707070][size=x-small][font=Verdana, Arial, sans-serif][color=#cc6666][b]Formun create olayına yazılacak kod :
Kod:
var
yazi:String;
i:integer;
Begin
i:=0;
Repeat
yazi:=inputbox('Şifre koruması', 'Lütfen şifreyi giriniz','');
if yazi<>'123456789' then
i:=i+1;
if i=3 then begin
showmessage('3 kez hatalı şifre girdiniz program kapatılıyor');
Halt;
end;
until yazi='123456789';
form2.show;
end;