programa giriş formu hazırlarken çözemediğim bir takım sorunlarla karşılaştım kullandığım formlar ve kodlar aşağıda belirttiğim gibidir.
frmAnaForm, mdiform özelliğine sahiptir.
frmdm, data modüldür
frmkullanıcılist, kullanıcı listesi bulunur
frmGiriş, Kullanıcı ve şifre kontrolü yapıp frmAnaForm 'a girişi sağlar
Project options tan frmAnaForm Main Form olarak ayarlanmıştır. program açılırken frmdm formda oluşturulur. diğer bütün formlar available form olarak ayarlıdır.
frmAnaForm un oncreate bölümünde aşağıdaki kod tanımlıdır.
Kod: Tümünü seç
Application.CreateForm(TfrmGiris, frmGiris);
frmGiris.Show;
with FrmAnaForm do
begin
FormStyle := fsMDIForm;
Position := poDefault;
BorderStyle := bsSizeable;
Left := 0;
Top := 0;
Height := Screen.Height-30;
Width := Screen.Width;
end;Kod: Tümünü seç
if Edit1.Text<>cxTextEdit2.Text then
begin
Mesaj:= Application.MessageBox('HATALI ŞİFRE GİRİŞİ...','ŞİFRE PROBLEMİ',0);
cxTextEdit2.SetFocus;
exit;
end else
begin
frmAnaForm.Show;
frmGiris.Hide; //
frmGiris.Free; //
end;frmAnaForm açılınca showmodal formlar açılıyor bir sorun çıkmıyor. ancak MDIchild form açmaya çalıştığım zaman aşağıdaki hata mesajını alıyorum
Cannot create form. No MDI forms are currently active
giriş formundan anaform açıldığı zaman giriş formunun yok edilmesini ve anaformun kalmasını istiyorum. giriş formu yokken bir sıktı yoktu modal formlar ile mdichild formlar herhangi bir problem vermeden çalışıyordu. giriş formu eklenince yukarıda belittiğim hata oluştu. formdan baktığım kadarıyla bir sonuca varamadım. yardımcı olursanız memnun olurum.
iyi geceler.