Como Colocar Cor No Caption Do Tabsheet

[Guest - Rodrigo -]

Boa tarde galera...

estou com um problema

eu teno que fazer um tabsheet.. que mude a cor do caption da aba quando a query que eu estou usando

tiver algum regiustro... se isso acontecer a caption fica vermelha senaum ela continua preta

alguém pode me ajudar???

[D4n1l0d]

cara, eu não sei mudar a cor não, mas eu movo um painel em cima do caption.

var

r : Trect;

begin

r := pagecontrol1.TabRect(1);

panel1.Left := pagecontrol1.Left + r.Right+ r.Left + 4;

panel1.Top := pagecontrol1.top + (r.Bottom - panel1.Height -6)+ r.top;

panel1.Visible := true;

esse codigo varia de acordo com a fonte que está usando, mas acho que é isso.

coloquei um exemplo para download:

http://www.bestsharing.com/files/ms0017654...esheet.zip.html

no meu pc deu certinho, caso você coloque o XpManifest e o computador for XP, o tabesheet ficara branco, então é só mudar a cor do panel para branco e colocar a label dentro do panel como transparente.