Cita:
Empezado por ingabraham
hola y para que se le aplique a todas las pagina
|
Hola, solo tienes que quitar la condición del Active:
Código Delphi
[-]
var
R: TRect;
Texto: String;
begin
Control.Canvas.Font.Color := clRed;
Control.Canvas.Font.Style := [fsBold];
Texto := PageControl1.Pages[TabIndex].Caption;
R := Rect;
Control.Canvas.FillRect(R);
...............................
.................................
Saluditos