[resolvido] Caption Do Tabsheet Em Negrito

[Guest gatinha]

Seguinte...Preciso muuuuuuuuito saber

Tenho um PageControl com 6 TabSheets

Eu quero saber como faço para que quando meu programa esteja em execução

eu clique na aba e o caption fique em negrito

Por favor quem puder ajudar

Grata :)

[Micheus]

gatinha, habilite a propriedade OwnerDraw do seu PageControl e escreva o código abaixo no evento OnDrawTab do mesmo:

procedure TForm3.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with Control as TPageControl do
  begin
    if Active then
      Canvas.Font.Style := Canvas.Font.Style +[fsBold]  // habilita negrito
    else
      Canvas.Font.Style := Canvas.Font.Style -[fsBold];  // desabilita negrito
    Canvas.TextRect(Rect, Rect.Left +3, Rect.Top +3, Pages[TabIndex].Caption);
  end;
end;

[Guest gatinha]

gatinha, habilite a propriedade OwnerDraw do seu PageControl e escreva o código abaixo no evento OnDrawTab do mesmo:

procedure TForm3.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with Control as TPageControl do
  begin
    if Active then
      Canvas.Font.Style := Canvas.Font.Style +[fsBold]  // habilita negrito
    else
      Canvas.Font.Style := Canvas.Font.Style -[fsBold];  // desabilita negrito
    Canvas.TextRect(Rect, Rect.Left +3, Rect.Top +3, Pages[TabIndex].Caption);
  end;
end;

Problema resolvido!!!! ;)

valeu!!!!!! :D