Как убрать первоначальное выделение верхней левой ячейки (StringGrid)?

[bakanaev]

При запуске программы изначально выделена колонка. Как это выделение можно убрать?

[Kix.IV]

procedure TForm1.FormShow(Sender: TObject);
var
 s:TGridRect;
begin
stringgrid1.Selection:=s;
end;

[bakanaev]

Сообщение от Kix.IV

procedure TForm1.FormShow(Sender: TObject);
var
 s:TGridRect;
begin
stringgrid1.Selection:=s;
end;

Так выделяются все колонки, не то!

[Kix.IV]

Хм. У меня всё норм.
Попробуй так:

procedure TForm1.FormShow(Sender: TObject);
var
 s:TGridRect;
begin
s.Top:=-1;
s.Left:=-1;
s.Right:=-1;
s.Bottom:=-1;
stringgrid1.Selection:=s;
end;

[bakanaev]

Сообщение от Kix.IV

Хм. У меня всё норм.
Попробуй так:

procedure TForm1.FormShow(Sender: TObject);
var
 s:TGridRect;
begin
s.Top:=-1;
s.Left:=-1;
s.Right:=-1;
s.Bottom:=-1;
stringgrid1.Selection:=s;
end;

Выделение убирает, но при нажатии на ячейку вылетает ошибка List index out of bounds (-1)

[Kix.IV]

Ну логично. Переставь код в другое место или переделай. В OnShow я его для примера засунул.