TabSheet в PageControle...

← →
Fly` © (2003-01-15 10:57) [0]

Проблема в следующем : как сделать , чтоб закладка была "задизаблена", т.е. виделась, но при клике на неё активной бы не становилась, а при Ctrl+Tab игнорировалась, т.е. фокус бы попадал на следующую незадизабленную закладку. Да... еще бы конечно хорошо, чтобы текст на закладке был сереньким...

← →
REA © (2003-01-15 11:23) [1]

Это вредительство. Нужно задизаблить содержимое закладки.

← →
Fly` © (2003-01-15 11:39) [2]

ты имеешь ввиду TabSheet.Enabled:=false; ?
это не подходит... так я просто все контролы на TabSheet задизабливаю... а мне надо , чтоб на закладку вообще попасть было нельзя...

← →
REA © (2003-01-15 11:42) [3]

А зачем? Чтобы юзер мышь сломал? Тогда лучше ее спрятать просто.

← →
Fly` © (2003-01-15 11:45) [4]

нет... просто иногда некоторые закладки надо нажимать, а некоторые нет...
вот если сделать так, чтоб фонт поменять на серенький, то это будет вообще интуитивно понятно...

← →
Игорь Шевченко © (2003-01-15 11:53) [5]

procedure TForm1.PageControl1Change(Sender: TObject);
var
TabSheet : TTabSheet;
begin
if NOT PageControl1.ActivePage.Enabled then begin
TabSheet := PageControl1.ActivePage;
repeat
TabSheet := PageControl1.FindNextPage(TabSheet, true, true);
until TabSheet.Enabled;
PageControl1.ActivePage := TabSheet;
end;
end;

так Ctrl+Shift+Tab работать будет неправильно... да и перемаргивание будет... :-)

Я вот пользуюсь...И рисую сам заголовок TabSheet"а серым фоном. На событии PageControl1DrawTab

ну в принципе как вариант.... Спасибо большое !

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