Form nasıl create edilmeli?

[aslangeri]

bu nedenle onCreate icinde fxxx in kullanimi sonucu access violation hatasi almamiz gerekmez mi ?

gerekir vede veriyor zaten.

[meron06]

ben formlarımı form1:=tform1.create(application); diye create ediyorum.bu yanlış bi yöntemmi arkadaşlar.yeni başlık açmayım dedim

[aslangeri]

yanlış değil.
ancak bu yöntemle create ettiğiniz formların oncreate olayında formun adını kullanmayın. (sender as tform) veya self kullanın.

[sadettinpolat]

bu nedenle onCreate icinde fxxx in kullanimi sonucu access violation hatasi almamiz gerekmez mi ?

gerekir vede veriyor zaten.

unit1.pas

Kod: Tümünü seç

procedure TForm1.btn1Click(Sender: TObject);
begin
form2:=tform2.Create(nil);
Form2.ShowModal;
Form2.Free;
end;

unit2.pas

Kod: Tümünü seç

procedure BasligiDegistir(aForm:TForm);
begin
   aForm.Caption :='a';
   Form2.edt1.Text:='a';
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
BasligiDegistir(form2)
end;

ben bu kodu deniyorum. form2 nin basligi a olmadigi gibi delphi bir hata da vermiyor.

[sabanakman]

Projenin .dpr dosyasında (project->view source menüsünden görebilirsin) Application.CreateForm(TForm2,Form2); satırı form2 oluşturuyor ve sen bunun caption özelliğini ayarlıyorsun. Buton olayında oluşturduğun form2 ise başka bir nesne. Eğer Application.CreateForm(TForm2,Form2); satırını silersen istediğin hata doğal olarak gelecektir.

[aslangeri]

sadettin bende hata verdi bu kod.
@şabanakman ın dediğini kontrol et.

[sadettinpolat]

Eğer Application.CreateForm(TForm2,Form2); satırını silersen istediğin hata doğal olarak gelecektir.

himmm. bende diyorum bi yerde bi terslik var ama

[conari]

bu konunun altına yazmakta fayda gördüm.
MDIChield formu Modal çağırırken hata alıyorum arkadaşlar. "cannot make a visible window modal"
Modal çağrılmıyormu yoksa bendemi bir hata var.

Kod: Tümünü seç

procedure TFrmMusHistory.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TFrmCustAra , FrmCustAra);
    FrmCustAra.ShowModal;
end;

show ile çalışıyor.

[aslangeri]

mdi formun visible ozelliği true olduğu için create ettiğin zaman ototmatik olarak show oluyor. ondan sonra show edilmiş bir formu tekrar showmodal ile show etmeye kaltığın için bu hatayı alıyorsun. mdi formun visiblesini false yapıp dene bi.
kolay gelsin.

[conari]

Child formu diyorsan yapamıyorum diyor.
Cannat Hıde an MDI child form

[csunguray]

MDI Child formlar doğrudan visible olarak Create edilirler. Create edilirken baz property leri değiştirmek istiyorsan bunu OnCreateParams event ı içerisinde yapabilirsin. MDI Child bir formu modal göstermek için aşağıdaki kodu kullanabilirsin. ModalAcilsin global bir değişken olarak tanımlanmalı.

Kod: Tümünü seç

var
  ModalAcilsin : Boolean;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if ModalAcilsin then
  begin
    Visible:=False;
    FormStyle:=fsNormal;
  end;
end;

[conari]

Eyvallah.