Заголовок TDBGrid в две строки

Delphi , Компоненты и Классы , TDBGrid

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

type
   TAccessDBGrid = class(TDBGrid);

 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
   const Rect: TRect; DataCol: Integer; Column: TColumn;
   State: TGridDrawState);
 var
   S1, S2: String;
 begin
   with TAccessDBGrid(DBGrid1) do
   begin
     // Increase title height 
    // Titelhohe vergrossern 
    RowHeights[0] := 32;

     Canvas.Brush.Style := bsClear;

     // Column Titles 
    // Spalten Titel setzen 
    case Column.Index of
     0: begin
          Column.Title.Caption := '';
          S1 := 'Row 1';
          S2 := 'Row 2';
        end;
     1: begin
          Column.Title.Caption := '';
          S1 := 'Row 1';
          S2 := 'Row 2';
        end;
     end;
     // write title: 
    // Titel ausgeben: 
    Canvas.TextOut(Rect.Left+2, 2, S1);
     Canvas.TextOut(Rect.Left+2, 16, S2);
   end;
 end;

Статья Заголовок TDBGrid в две строки раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2011-09-03 22:31:32 :: re:Заголовок TDBGrid в две строки

пользователь: Shoni.

У меня прописывает нормально, но когда я начинаю листать DBGrid, выпадает ошибка - превышен индекс DBGrid-а, после удаления сего куска кода программа заработала исправно...

:: 2011-10-12 21:18:10 :: re:Заголовок TDBGrid в две строки

пользователь: kan.

где именно выдаёт ошибку?

:: 2015-10-15 18:59:44 :: re:Заголовок TDBGrid в две строки

пользователь: Inna.

Заголовки пишутся правильно в 2 строки, но при движении мышкой над ними, либо при горизонтальной прокрутке формы заголовки исчезают. В чем дело?

:: Главная :: TDBGrid ::