Самое простое - использовать грид, имеющий в своем составе запрашиваемую фичу (например от DevExpress)
Если очень хочется сделать самому то вот две функции для сохранения и восстановления колонок 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.
procedure TForm1.RestoreColumnsOrder(const Grid: TDbGrid);
var
R: TRegistry;
BufSize: Integer;
Buffer: Pointer;
Stream: TMemoryStream;
begin
if Assigned(Grid) then
begin
R := TRegistry.Create;
Stream := TMemoryStream.Create;
try
if R.OpenKey('Software\'+Application.Title+'\'+Grid.Owner.Name+'\'+Grid.Name, False) then
begin
if R.ValueExists('ColumnsOrder') then
begin
BufSize := R.GetDataSize('ColumnsOrder');
GetMem(Buffer, BufSize);
try
R.ReadBinaryData('ColumnsOrder', Buffer^, BufSize);
Stream.Write(Buffer^, BufSize);
Stream.Seek( 0 , 0 );
Grid.Columns.LoadFromStream(Stream);
finally
FreeMem(Buffer);
end;//try
end;//if
end;//if
finally
Stream.Free;
R.Free;
end;//try
end;//if
end;
procedure TForm1.SaveColumnsOrder(const Grid: TDbGrid);
var
R: TRegistry;
Stream: TMemoryStream;
begin
if Assigned(Grid) then
begin
R := TRegistry.Create;
Stream := TMemoryStream.Create;
try
if R.OpenKey('Software\'+Application.Title+'\'+Grid.Owner.Name+'\'+Grid.Name, True) then
begin
if R.ValueExists('ColumnsOrder') then R.DeleteValue('ColumnsOrder');
Grid.Columns.SaveToStream(Stream);
R.WriteBinaryData('ColumnsOrder', Stream.Memory^, Stream.Size);
end;//if
finally
Stream.Free;
R.Free;
end;//try
end;//if
end;
