|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Передача фокуса ввода в strindgrid
Здравствуйте! Как можно реализовать , последовательный переход и готовую для ввода ячейку 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
|
||||
|
||||
Цитата:
|