form create ediyom sonra yok ederken hata veriyor.

[ieski]

S.A.

var
dlg: TForm3;
begin
try
dlg := TForm3.Create(nil);
dlg.ShowModal;

burada çağırıyorum...

FreeAndNil(dlg);



sonra form3'ün içinde

procedure TForm3.DBGrid1CellClick(Column: TColumn);
begin
KeyValue := IBQuery1.FieldByName('FATURA_NO').AsString;
Form3.Free;
end;

burada accesviolation hatası veriyor.

Teşekkür Ederim.

[ylmz]

merhaba,

formun close olayında action parametresine

action := cafree;

değerini atarsan daha sağlıklı olur. Böylece form kapanırken bellekten atılacağını garantiye almış olursun.Ayrıca başka bir yerde free çağrısını yapmana gerek kalmaz.İyi çalışmalar.

[ieski]

şimdi ben bir formu creat ediyorum aşağıdaki gibi
dlg := TForm3.Create(Application);
dlg.ShowModal;

sonra açılan formda grid'de bir hücreyi seçince formu kapatıp diğer forma dönmek istiyorum..
şimdi form3 'te iken
form3.close yapıyorum hata veriyor.


sonra o forma zaten.
FreeAndNil(dlg); yokediyorum

teşekkür ederim ilginiz için.

[ieski]

şimdi ben bir formu creat ediyorum aşağıdaki gibi
dlg := TForm3.Create(Application);
dlg.ShowModal;

sonra açılan formda grid'de bir hücreyi seçince formu kapatıp diğer forma dönmek istiyorum..
şimdi form3 'te iken grid'in bir hücersini tıklayınca aşağıdaki gibi
bir değer alıyorum..

KeyValue := 111
form3.close // yapıyorum hata veriyor.


sonra çağırdığım forma geri dönünce zaten.
FreeAndNil(dlg); yokediyorum


burda problemim girid'teki hücre mouse ile tıklanınca formu kendi içinde kapatamıyorum
teşekkür ederim ilginiz için.

[ieski]

şimdi şöyle yaptım..

form1'de
dlg := TForm3.Create(nil);
dlg.ShowModal;

create edip gösteriyorum..

form3'te
grid'in cellclick oolayınca

close //dedim

oldu..


teşekkürler

[Murat DİCLE]

A.S.

Hata vermesinin sebebi, ShowModal işlemi bitmeden önce sen formu içerden free ediyorsun.

bunu şöyle yapmak en doğrusudur.

Kod: Tümünü seç

   F := TForm3.Create(Self); // yada Create(Application)
   if F.ShowModal = mrOK then
      ShowMessage('Bunu seçtin: ' + KeyValue)
   else
      ShowMessage('Form iptal edildi. bişi seçilmedi ki');

   //Şimdi de formu free et.. 
   //Showmodal bir formun OnCLose bölümüne caFree eklemeyin.
   //MDI formlardaki gibi..
   F.Free;

ve Form3 içindeki olay için ise şöyle yapalım.

Kod: Tümünü seç

procedure TForm3.DBGrid1CellClick(Column: TColumn); 
begin 
   KeyValue := IBQuery1.FieldByName('FATURA_NO').AsString; 
   ModalResult := mrOK;
   Close;
end; 

İyi çalışmalar.

[ieski]

ALLAH Razı Olsun. Teşekkür Ederim.

[Murat DİCLE]

Senden de ALLAH razı olsun..