Вкладки TPageControl

← →
Ilg (2003-10-20 18:40) [0]

Здравствуйте!
Скажите, как сделать отдельные вкладки TPageControl недоступными
(Чтобы они отображались, но пользователь не мог их выбрать)?
Заранее, Большое спасибо!

← →
jack128 © (2003-10-20 18:42) [1]

procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
if ... then
AllowChange := False;
end;

← →
Ilg (2003-10-20 19:57) [2]

jack128, Спасибо! Только один вопрос: "Как узнать, какая вкладка станет активной?"
И еще... а нельзя ли сделать что-то типа Enabled:=false для кнопок?

← →
Guerrillero © (2003-10-20 23:12) [3]

>> "Как узнать, какая вкладка станет активной?"
Попробуй след. образом :
procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
var
P: TPoint;
I: Integer;
R: Trect;
begin
GetCursorPos(P);
with PageControl1 do
begin
P := ScreenToClient(P);
if PageCount > 0 then
for I := 0 to PageCount - 1 do
if PtInRect(TabRect(I),P) then
begin
ShowMessage(Pages[I].Caption);
Break;
end;
end;
end;
>> а нельзя ли сделать что-то типа Enabled:=false для кнопок?
Попробуй отрисовывать самостоятельно закладки (OnDrawTab) и для неактивных рисовать Caption серым цветом

← →
Ilg (2003-10-21 14:12) [4]

Снова, Спасибо!
Но этот способ не всегда действует (не работает при переключении вкладок с помощью клавиатуры)... Нет ли чего-нибудь более универсального?

А может просто скрыть недоступные (TabVisible)?
Как вариант: пусть будет возможность переключиться, но содержимое скрывать или делать Disabled.

Вкладки TPageControl Найти похожие ветки