关于多页控制(100分)

H

huawei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-27

• #1

本人用到PAGECONTROL控件，需要在不同TABSHEET中显示一样的图形，但内容不一样，有什么好办法？是否一定要在每个页中把图形CREATE？

 

H

hawkview

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-27

• #2

用Tabcontrol控件可实现类似功能.

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-27

• #3

用 TabControl , 在 OnChange 事件中改显示，
实际上各页是用相同的control，换页时自己改显示的东西

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-27

• #4

怎么叫一样的图形，又有不一样的内容，我是糊涂。
上面两位， 也不知道清楚不清楚，

在每一页都创建一个不就行了吗。

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-27

• #5

是啊，既然内容不一样，那就每个tabsheet中建一个图形算了。
否则，在PageControl1的OnChange事件中切换Image的Parent，
同时重新设置Image
procedure TForm1.PageControl1Change(Sender: TObject);
begin
image1.Parent := PageControl1.Pages[PageCOntrol1.ActivePageIndex];
case PageCOntrol1.ActivePageIndex of
0:image1.picture := 'image0.bmp';
1:image1.picture := 'image1.bmp';
...
end;
end;

 

H

huawei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-27

• #6

谢谢各位，本人的问题没能说清楚，望谅解
1。首先是页的数目不能确定，所以无法在每个TABSHEET中建立图形
2。本人程序是这样的：
程序是一个作图程序，希望能在不同页中建立一样的界面，但参与画图的数据每页不同。

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-27

• #7

那就用这个办法好了：总归是有第一个TabSheet的吧，放一个PaintBox1，

procedure TForm1.PageControl1Change(Sender: TObject);
begin
PaintBox1.Parent := PageControl1.Pages[PageCOntrol1.ActivePageIndex];
case PageCOntrol1.ActivePageIndex of
0:....//按0对应的数据在PaintBox1上画图
1:....//按1对应的数据在PaintBox1上画图
...
end;
end

 

H

huawei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-28

• #8

dreamtiger:

多谢你的指教，问题已解决，给你分了！