Введите условия поиска Отправить форму поиска
	Web DelphiSources.ru

Изменить высоту строк по умолчанию для TDBGrid 2

Оформил: DeeCo

 // Way: Make a TypeCast: 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   DBGrid1.DataSource.DataSet.DisableControls;
   TStringGrid(DBGrid1).DefaultRowHeight := 55;
   DBGrid1.DataSource.DataSet.EnableControls;
 end;