Buscar

Alterando as cores do título de um dbgrid em runtime

Código

Procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  I : integer;
begin
  for i:=0 to DBGrid1.Columns.count-1 do begin
  DBGrid1.Columns[i].Title.Color := clBtnFace;
  DBGrid1.Columns[i].Title.Font.Color := clBlack;
  DBGrid1.Columns[i].Title.Font.Style := [];
  end;
  Column.Title.color := ClYellow;
  Column.Title.Font.Style := [ fsBold, fsItalic];
  Column.Title.Font.Color := clRed;
end

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Componentes
Adicionada dia: 27/05/03
Por: Felipe Monteiro
Visualizada: 4747 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009