...........................................
Код:
...
sg := StringGrid.Create(Self);
with sg do
begin
...
...
end;
ClearGrid(sg);
...
Код:
procedure ClearGrid(Grid: TStringGrid);
var
hGridRect: TGridRect;
begin
hGridRect.Top := -1;
hGridRect.Left := -1;
hGridRect.Right := -1;
hGridRect.Bottom := -1;
Grid.Selection := hGridRect;
end; |