Fórum Editando DBGrid #238607

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 := [];
    DBGrid1.Columns[i].Title.Caption := ´Titulo - ´+IntToStr(i);
  end;
  Column.Title.color := ClYellow;
  Column.Title.Font.Style := [ fsBold, fsItalic];
  Column.Title.Font.Color := clRed;
end;