[mli]

Можно ли как-то закрепить первый столбец DBGrid , чтобы он оставался на экране при прокрутке?

[Страдалецъ]

Нашел такое вот решение, но не проверял:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109

Как зафиксировать столбцы в DBGrid   Это маленькая вставка в Ваш наследник от tcustomdbgrid, которая решает данную задачу.   === begin dbgridex.pas === // ---------------------------------------------------------------------------- - destructor tdbgridex.destroy; begin   _hidecolumnsvalues.free; _hidecolumns.free;   inherited destroy; end;   // ---------------------------------------------------------------------------- constructor tdbgridex.create(component : tcomponent); begin inherited create(component);   ffreezecols := ?;   _hidecolumnsvalues := tlist.create; _hidecolumns := tlist.create; end;   // ---------------------------------------------------------------------------- procedure tdbgridex.keydown(var key: word; shift: tshiftstate); begin if (key = vk_left) then colbeforeenter(-1); if (key = vk_right) then colbeforeenter(1);   inherited; end;   // ---------------------------------------------------------------------------- procedure tdbgridex.setfreezecolor(acolor : tcolor); begin invalidaterow(0); end;   // ---------------------------------------------------------------------------- procedure tdbgridex.setfreezecols(afreezecols : integer); begin ffreezecols := afreezecols; invalidaterow(0); end;   // ---------------------------------------------------------------------------- procedure tdbgridex.colenter; begin colbeforeenter(0);   if assigned(oncolenter) then oncolenter(self); end;   // ---------------------------------------------------------------------------- procedure tdbgridex.colbeforeenter(adelta : integer); var nindex : integer;   function readwidth : integer; var i : integer;   begin i := _hidecolumns.indexof(columns[nindex]);   if i = -1 then result := 120 else result := integer(_hidecolumnsvalues[i]); end;   procedure savewidth; var i : integer;   begin i := _hidecolumns.indexof(columns[nindex]); if i <> - 1 then begin _hidecolumnsvalues[i] := pointer(columns[nindex].width); end else begin _hidecolumns.add(columns[nindex]); _hidecolumnsvalues.add(pointer(columns[nindex].width)); end;   begin for nindex := 0 to columns.count - 1 do begin if (columns[nindex].width = 0) then begin if (nindex + 1 <= freezecols) or (nindex >= selectedindex + adelta) then columns[nindex].width := readwidth; end else begin savewidth; if (nindex + 1 > freezecols) and (nindex < selectedindex + adelta) and (nindex + 1 < columns.count) and (freezecols > 0) then columns[nindex].width := 0; end;   === end dbgridex.pas ==