Св-во Enabled у TTabSheet

← →
Charly (2003-09-26 23:32) [0]

Работаю с TPageControl. Пишу так:
Tab1.Enabled := false // Tab1 - объект TTabSheet
Действительно, все контролы на этой вкладке становятся недоступны. Однако, визуально это никак не отражается. Даже Caption у Tab1 как был черный, так он и остается черным, т.е. пользователь может подумать, что эта вкладка доступна.

А хотелось, чтобы цвет Caption"а при Enabled = false сменялся на серый, как у TButton, например.

Как это сделать ?

← →
Zergling © (2003-09-27 08:43) [1]

OwnerDraw := true;
OnDrawTab

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
TmpRect: TRect;
begin
TmpRect := Rect;
if TabIndex = 0 then
begin
SetTextColor(Control.Canvas.Handle, clGray);
DrawText(Control.Canvas.Handle, PChar("fffhfhhf"), Length("fffhfhhf"), TmpRect, DT_CENTER);
end else
begin
SetTextColor(Control.Canvas.Handle, clBlack);
DrawText(Control.Canvas.Handle, PChar("fffhfhhf"), Length("fffhfhhf"), TmpRect, DT_CENTER);
end;
end;

Tab1.Visible не подойдет? - раз недоступна, пусть ее и не видно будет.

← →
Charly (2003-09-27 13:50) [2]

Спасибо за OnDraw! Попробую.

А Visible не подойдет, потому что юзер будет думать в таком случае, что этой вкладки вообще нету. Надо именно, чтобы она была недоступна, но видна.
Так что OnDraw - самое то.

Св-во Enabled у TTabSheet Найти похожие ветки