![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Здравствуйте! Как можно реализовать , последовательный переход и готовую для ввода ячейку stridgrid по нажатию enter?
|
|
#2
|
|||
|
|||
|
Можешь поподробнее описать, что тебе надо. Из указанного не совсем понять что же конкретно хочется...
|
|
#3
|
|||
|
|||
|
После нажатия мыши на первой ячейки стринггрида , далее фокус ввода переходил по очереди нажатием enter. Т. е фокус перемещался и был готов для ввода.
|
|
#4
|
||||
|
||||
|
А, что в google забанили?
Код:
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
If (Key = #13) Then
With TStringGrid(Sender) Do
If (Col < ColCount - 1) Then
Col := Col + 1
Else If (Row < RowCount - 1) Then
Begin
Row := Row + 1;
Col := FixedCols;
End;
end; |
|
#5
|
|||
|
|||
|
Не, не забанили пока. Верю, что на форуме дадут подсказку, направление куда смотреть.
Последний раз редактировалось Maks19, 26.01.2020 в 18:01. |
|
#6
|
||||
|
||||
|
Цитата:
|