Hola,
Me alegro. Yo tambiéne estaba investigando y creo que entre los dos y Román puedes lograr más o menos lo que querías en un principio. El método que has puesto quedaría así:
Código Delphi
[-]
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if not (PageControl1.ActivePage.Enabled) then
begin
PageControl1.ActivePageIndex := TabAnterior
end
else
TabAnterior := PageControl1.ActivePageIndex;
end;
El evento "OnDrawTab" del "PageControl" quedaría así:
Código Delphi
[-]
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
R: TRect;
Texto: String;
begin
if not (PageControl1.Pages[TabIndex].Enabled) then
Control.Canvas.Font.Color := clGrayText;
Texto := PageControl1.Pages[TabIndex].Caption;
R := Rect;
Control.Canvas.FillRect(R);
if not Active then
InflateRect(R, 0, -3);
DrawText(Control.Canvas.Handle, PChar(Texto), -1,
R, DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;
La propiedad "OwnerDraw" del "PageControl" ha de valer "True", para el anterior código haga su trabajo.
Por último, ya podrías habilitar/deshabilitar pestañas mediante su propiedad "Enabled":
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
TabSheet2.Enabled := false;
TabSheet4.Enabled := false;
PageControl1.Repaint;
end;
El problema que he visto (de momento) es que al utilizar el evento "OnDrawTab", si utilizas también la unidad "XpMan", para lograr la apariencia del tema de Windows XP, ya sabes, pues resulta que la cosa no parece funcionar correctamente...
Es decir, el tema de Windows XP se aplicará (tendrá efecto) sobre otros controles, pero, no sobre el "PageControl", no sé si me explico.
