Alterar as cores do título de um DBGrid em tempo execução

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;

    

Autor : desconhecido

Voltar