Scroll в StringGrid . ~по моему событию~

← →
Talla2k © (2004-02-08 20:24) [0]

Сделал обработчик для StringGrida по нажатию кл.Enter.
Теперь,после нажатия попадаю в след.ячейку(как в Excel).
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var MyRect:TGridRect;
begin
if key = vk_return then begin
myRect.Left := Stringgrid1.Selection.Left;
myRect.Right := Stringgrid1.Selection.Right;
myRect.Top := Stringgrid1.row+1; // без проверки на выход за границы Grida
myRect.Bottom := Stringgrid1.row+1;
StringGrid1.Selection := myRect;
Stringgrid1.EditorMode:=true;
end; end;
НО,пропало позиционирование !!!Т.е.раньше, когда нажимал стрелку вверх или стрелку вниз двигался Scroll,
а теперь стоит на месте(имеется ввиду по нажатию Enter).
Подскажите, как заставить Scroll позиционировать в моем случае ????

← →
Talla2k © (2004-02-09 16:08) [1]

Что никто не знает???

Scroll в StringGrid . ~по моему событию~ Найти похожие ветки