我想自己生成子窗口,例如在Form1 中生成form2。
form1中的代码:
if (form2 = nil) then
begin
Form2:=TForm2.create(self);
Form2.parant:=Form1;
end;
Form2.show;可以生成form2 的子窗口,from2的按纽可以用,最小,最大也可以用,但是form2中的edit文本框里面就不能输入东西,标题栏显示灰色。请问,怎么可以解决这个问题,把焦点放到form2上。另:我已 用过form2.bringtofront,form2.formstyle:=fsstayontop,都没有作用
高手帮忙,急!!!!!!!!!1
form1中的代码:
if (form2 = nil) then
begin
Form2:=TForm2.create(self);
Form2.parant:=Form1;
end;
Form2.show;可以生成form2 的子窗口,from2的按纽可以用,最小,最大也可以用,但是form2中的edit文本框里面就不能输入东西,标题栏显示灰色。请问,怎么可以解决这个问题,把焦点放到form2上。另:我已 用过form2.bringtofront,form2.formstyle:=fsstayontop,都没有作用
高手帮忙,急!!!!!!!!!1
begin
Form2:=TForm2.create(self);
form2.FormStyle:=fsmdichild;
Form2.Parent:=self;
end;
Form2.show;
end;
begin
Form2:=TForm2.create(self);
Form2.parant:=Form1;
end;
Form2.show;Form2.parant:=Form1;这句需要么??form2中的edit文本框里面就不能输入东西,标题栏显示灰色???
我估计你是不是form1里有个timer。。会定时将焦点改为form1上的控件上呢。。你考虑一下。。
if (form2 = nil) then
begin
Form2:=TForm2.create(self);
form2.FormStyle:=fsmdichild;
Form2.Parent:=self;
end;
Form2.show;
end;
我这段代码试过没?
form1的formstyle改过没?
没有那么复杂,将主窗体formstyle的属性设置为:mdiform
子窗体的设置为:mdichildform就可以了阿