Скачать: CL | DM;

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;

---

← →
Song ©   (2002-05-29 08:24) [4]

TTabSheet.TabVisible

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c