PageControl и TabSheet...

← →
Dishar (2002-05-28 23:20) [0]

Народ, помогите! У меня такая проблема. Никак не могу убрать эти TabSheetы, сделать невидимыми, но чтобы они на самом деле были.
Дело в том, что программа по ходу выполнения сама должна переключаться нанужный Табшит, а юзер должен быть лишен такой возможности. Заранее спасибо!!!!!!

← →
AlexMey © (2002-05-28 23:36) [1]

У TPageControl есть такое событие - onChanging()
Оно произходит после того, как пользователь щёлкнул мышью и перед тем, как закладки должны переключиться. Напишите следующий код и всё.

procedure PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
AllowChange := false;
end;

← →
cypher © (2002-05-29 00:11) [2]

Зачем такие сложности, не проще воспользоваться TNotebook ? или как он там завется...

← →
jonik pegas © (2002-05-29 08:12) [3]

TabVisible:=false;

TTabSheet.TabVisible

← →
Dishar (2002-05-29 18:20) [5]

Народ, спасибо! Родина Вас не забудет!!!!!

PageControl и TabSheet... Найти похожие ветки