Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
ВнизВкладки 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]Снова, Спасибо!
Но этот способ не всегда действует (не работает при переключении вкладок с помощью клавиатуры)... Нет ли чего-нибудь более универсального?
← →
REA (2003-10-21 14:55) [5]А может просто скрыть недоступные (TabVisible)?
Как вариант: пусть будет возможность переключиться, но содержимое скрывать или делать Disabled.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c