From1 içine Şifre KodU

[fevzi_reis]

From1 içine Şifre koyacaz From2 ye geçecek
yardımcı olabilirmiyiz

[ulu coder]

'Form2'yi aç' isimli butona basılınca şifre soracak;

Kod: Tümünü seç

TForm1.Button1Click(Sender:TObject);
var
  basildi:Boolean;
  deger:AnsiString;
begin
  basildi:=InputQuery('Aç','Şifreyi girin;',deger);
  if basildi=True Then //Şifre girilip OK butonuna basıldıysa...
  begin
    if deger='şifre' then form2.Show;
    if deger<>'şifre' then ShowMessage('Şifre Yanlış');
  end;
end;

Kolay gelsin