form2 yi form1 in içinde create etmek ?

[emrahgs]

Merhaba

Application.CreateForm(Tform2,Tform(form2));
form2.Parent:=form1;
form2.Show;

Bu şekilde form1 in içinde form2 yi çalıştırmak istiyorum fakat form create olmasına rağmen müdahale edelilemiyor
pasif duruyor bunu nasıl yapabilirm ?

[ALUCARD]

aynı kodları denedim çalışıyor
belki form2 de olan herhangi bir koddan kaynaklanıyor olabilir.
belki form2 yi çağırdığın yer de yanlış olabilir
ona da dikkat bence

işte form1de olan kodum da bu şekilde

Kod: Tümünü seç

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(Tform2,Tform(form2));
form2.Parent:=form1;
form2.Show;
end;

end.

[emrahgs]

ALUCARD cevap verdiiiğin için teşekkür ederim, umudu kesmiştim bu konudan
ben çalıştırıncada form2 form1 in içinde create oluyor
ama form2 deki editlere bişey yazamıyosun
form2 olduğu gibi pasif oluyor
sende de bu şekildemi acaba

[csunguray]

Neden klasik kalıpla create etmiyorsunuz?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := Tform2.Create(Self);
  Form2.Parent := Form1; // veya := Self
  Form2.Show;
end;

Siz owner ı set etmediğiniz için çalışmıyor olabilir.

Kod: Tümünü seç

form2.Parent:=form1;

satırı altına bir de

Kod: Tümünü seç

Form2.Owner := Form1;

eklerseniz belki sizi kodunuz da çalışır çalışır.

Kolay gelsin.

[emrahgs]

malesef çalışmıyor dostum

Form2.Owner := Form1;
[DCC Error] Unit1.pas(33): E2129 Cannot assign to a read-only property

[sabanakman]

Owner atamaya gerek yok, içerde görünecek olan formun BorderStyle özelliğinin bsNone olması yeterli sanırım.

[emrahgs]

hocam sağolasın bu şekilde oldu
ama garip geldi bana bsNone dışındakilerikabul etmiyor
bir main form yapıp içinde form2 yi birden fazla create etmek istiyordum
ama bu şekiilde değişik oldu biraz formun başlığı yok