anaForm ve şifreFormu

[hakkus]

Merhabalar,
Şifre formumu, mainFormdan önce nasıl gösterebilirim?
ProjectOptions
MainForm---> autocreate
şifreFormu-->availableForm

[csyasar]

main formun onshow'una kod yazarak şifre formunu aç.

[heskin35]

Evet sonuca göre de anaformu kapat yada aktif et.

[oguzozturk74]

Ana Formun OnShow unda ;

Kod: Tümünü seç

  try
    FRM_LOGIN := TFRM_LOGIN.Create(Application);
    with FRM_LOGIN do
    begin
      ShowModal ;
      if ModalResult <> mrOK then
        Application.Terminate;
      end;
  finally
    FRM_LOGIN.Free ;
    FRM_LOGIN := nil ;
  end;     

gibi bir kod kullanabilirsin . Burada eğer Şifre Formunda şifre doğru girilmişse Şifre Formunun ModalResult ını Ture yaparsınız.

Kolay gelsin.

[hakkus]

Merhabalar,
Teşekkür ederim arkadaşlar.
Sayın oguzozturk74 size ayrıca teşekkür ederim, istediğim buydu.

[gercek_16]

Burada eğer Şifre Formunda şifre doğru girilmişse Şifre Formunun ModalResult ını Ture yaparsınız.

modalresult u nasıl true değerini atıycam.

modalresult:true diyorum hata veriyor.[/quote]

[oguzozturk74]

Kod: Tümünü seç

Form.ModalResult := mrOK;

seklinde olmuyor mu?

[gercek_16]

olmuyor, şifre formunda hiç bir koşul koymadığım halde
giriş dediğimde programı sonlandırıyor.

form1 şifre formum

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 form1.ModalResult:= mrOk;
 form1.Close;
end;

form2 main formum

Kod: Tümünü seç

procedure TForm2.FormShow(Sender: TObject);
begin
try
    form1:= TForm1.Create(Application);
    with form1 do
      begin
        ShowModal;
        if ModalResult <> mrOK then
          Application.Terminate;
      end;
  finally
    Form1.Free;
    form1:= nil;
  end;
end;

[oguzozturk74]

Sadece

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 form1.ModalResult:= mrOk;
end;

yazmanız yeterli.
Ayrıca sunu da ekliyim;
- Button un ObjectInspector deki Modal Result ozelligi mrNone olmalı..
- Sifre formunuz AutoCreate Form olmamalı..