Çıkmaza sokan bir hata !

[aslangeri]

s.a.
qamyoncu doğru noktaya temas etmiş.
sorun freen veya nil etmende değil.
create sırasında sıkıntı çıkıyor.
mdi formları normal form gibi create etmeye çalışıyorsun.
MDI formlarla çalışırken SDI daki mantıkla formları kullanılmamalı.

[ByDeniS]

@Murat DİCLE

Öncelikle açıklaman ve yönlendirmen için teşekkür ederim. Lakin burada şöyle bir soruya değinmek istiyorum o halde '' eşitmidir 8bit'e ?

@qamyoncu

Arkadaşım sanada teşekkür ederim örnek kodların için. Ama ben yeni içi belirsiz bir Chil form oluşturmuyorum. Belirli içerisinde ayları ve fonsiyonları yapılmış. Form'ları oluşturuyorum. Ve bunları dpr dosyasında program başlagıcında create etmiyorum. Sonrada işlem gerekitiğinde create ederek çağırıyorum.

Örneğin baştan salma bir örnek söyleyeyim. Bir iletişim form'u yaptım, bu form'u lazım oldugunda create ediyorum. Senin yönteminle; word , excel , ps , yada dw ile açılan yeni bir boş sayfa mantığına yaklaşılabilir. Aradaki fark bu !

@aslangeri

Arkadaşım açıklaman için sanada teşekkür ederim.. Destroyer, Free, Nil, yada dah farklı yöntem yada kodcuklarla kaldırılan bir forum yada yok edilen. Yada şöyle söyleyelim tüm işlevleriyle screenden ve background sistemden yok edilen form yada program create esnasında sıfırdan yani tabiri caizse anadan doğma olmalıki create ortamında problem çıkmasın. Burada demektirdi close kısmında bir çakışma ve o yüzden o kısma yoğunlaştım.


Not : Herkeze özellikle teşekkür ederim allah razı olsun her birinizden. Farklı konularada değinin bir başlık oldu güzel oldu. Saygılar.

[conari]

ben create ederken

Kod: Tümünü seç

FrmBaglan:=TFrmBaglan.create(Self) ;

veya

Kod: Tümünü seç

Application.CreateForm(TFrmBolge, FrmBolge);

şeklinde create ediyorum.

kapatma kodumda bu şekilde.

Kod: Tümünü seç

procedure TfrmBaglan.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
FrmBaglan:=nil
end;

[ByDeniS]

@conari

Aynı yöntemi izliyorum.

Create işlemini

Kod: Tümünü seç

Application.CreateForm(TForm, Form);

Close işlemini

Kod: Tümünü seç

Action:=CaFree yada (Sender as Form).Free
Form:=nil;