Foruma Şifre Koyma

[pisko_3541]

'şifre yunus
Private Sub Form_Load()
If InputBox("şifreyi giriniz") <> "yunus" Then
MsgBox ("şifreyi bilemediniz.bilgiler üzerinde degişiklik yapamazsınız.")
Text1.Locked = True
End If
End Sub
Saygılarımla...

 

[batucan72]

eline sağlık..

 

[bymxx]

bide ben bi örnek atayım


implementation
uses unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='Edit1') and (edit2.Text='Edit2') then
begin
form2.Show;
end
else
begin
showmessage('yanlış');
end;
end;

end.


uses unit2 ===> önemli yoksa form2 gözükmez bilmeyenler için büyük küçük harfede duyarlıdır saygılarımla