TMyDBGrid = class(TDBGrid)
published
property DefaultRowHeight;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DBGrid1 := TMyDBGrid.Create(Self);
with DBGrid1 do
begin
Parent := Self;
Left := 50;
Top := 50;
DataSource := DataSource1;
DBGrid1.DefaultRowHeight := 30;
end;
end;