5,930
社区成员
发帖
与我相关
我的任务
分享pagecontrol
点击pagecontrol上的TabSheet触发哪一个事件
例如: pagecontrol上有三个tabsheet,只要一点击TabSheet1\TabSheet2\TabSheet3就触发各自的事件
请高手指点
例如: pagecontrol上有三个tabsheet,只要一点击TabSheet1\TabSheet2\TabSheet3就触发各自的事件
请高手指点
...全文
请发表友善的回复…
发表回复
nanchangfantasy 2009-05-18
- 打赏
- 举报
OnChange响应代码
if pagecontrol.ActivePageIndex = 0 then
begin
end
else if pagecontrol.ActivePageIndex = 1
.............
if pagecontrol.ActivePageIndex = 0 then
begin
end
else if pagecontrol.ActivePageIndex = 1
.............
7年 2009-05-18
- 打赏
- 举报
onchange
lovelymelon 2009-05-18
- 打赏
- 举报
OnChange 事件
lishan200012 2009-05-18
- 打赏
- 举报
procedure TForm1.TabSheet1Enter(Sender: TObject);
begin
TabSheet1.Caption:='OK';
end;
luxuewei5214 2009-05-18
- 打赏
- 举报
pagecontrol中的OnChange事件中写
zhengyanwml 2009-05-18
- 打赏
- 举报
在pagecontrol 的OnChange事件中写代码
if pagecontrol.ActivePageIndex = 0 then
begin
写代码／／这些代码是tabsheet1中执行的代码
end;
tabsheet1对应的ActivePageIndex 为 0
if pagecontrol.ActivePageIndex = 0 then
begin
写代码／／这些代码是tabsheet1中执行的代码
end;
tabsheet1对应的ActivePageIndex 为 0
linghengmao 2009-05-18
- 打赏
- 举报
在 onchange 里写呀
case pgc1.ActivePageIndex of
0: 第一个 TabSheet
1: 第二个 TabSheet
.
.
.
case pgc1.ActivePageIndex of
0: 第一个 TabSheet
1: 第二个 TabSheet
.
.
.
