Текущий архив: 2004.02.25;
Скачать: CL | DM;
Вниз
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]Что никто не знает???
Страницы: 1 вся ветка
Текущий архив: 2004.02.25;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.03 c
