各位大大好:
是这样的,我有一个TabControl元件,在其onchange中有如下code:

if tabcontrol1.TabIndex=1 then
begin
Application.Messagebox('1','信息',mb_Ok mb_Iconinformation);
end
else if tabcontrol1.TabIndex=0 then
begin
Application.Messagebox('0','信息',mb_Ok mb_Iconinformation);
end;

然后我在一个button1中有如下code:
tabcontrol1.TabIndex:=1;

但当我点击button1时, 并没有出现相关的messagebox,请问是哪里写错了?


ps: 如果我直接用mouse点击TabControl元件,是有相关的messagebox的

編輯記錄

請在tabcontrol1.TabIndex:=0;後再加一行：

[code delphi]
TabControl1Change(Sender);
[/code]

即可

非常感谢 老大仔 大大!


===================引 用 老大仔 文 章===================
請在tabcontrol1.TabIndex:=0;後再加一行：

[code delphi]
TabControl1Change(Sender);
[/code]

即可