请问如何将窗体创建在PageControl上。 ( 积分: 100 )

C

cchenl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #1

我想将自己程序的界面改成各个窗体动态创建在PageControl控件的TabSheet上，是通过Parent:=TabSheet;实现的，但是这样创建后，窗体上的一些控件用不能用鼠标选中获得焦点，但窗体工具栏的按钮、下拉框又可以，这是为什么呀，正确的该如何处理。谢谢大家的帮助。

 

C

cchenl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #2

我想将自己程序的界面改成各个窗体动态创建在PageControl控件的TabSheet上，是通过Parent:=TabSheet;实现的，但是这样创建后，窗体上的一些控件用不能用鼠标选中获得焦点，但窗体工具栏的按钮、下拉框又可以，这是为什么呀，正确的该如何处理。谢谢大家的帮助。

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #3

with TForm.Create(nil)do
begin
Parent := TabSheet1;
Align := alClient;
Show;
end;

 

C

cchenl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #4

我是这样创建的，但是窗体上的有些控件为什么不能选中，比如说Edit，需要用Tab跳过去才能输入，用鼠标不能点中得到输入焦点。

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-07

• #5

嵌入的那个Form的BorderStyle为bsNone

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-07

• #6

Form2 := TForm2.Create(TabSheet2);
form2.Parent := TabSheet2 ;
form2.Align := alClient;
Form2.BorderStyle := bsNone;
form2.Show;

 

C

cchenl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-07

• #7

谢谢。