| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
StringGrid [D5]
Krasuk © (2002-11-04 11:51:00)Подскажите пожалуйста как можна в StringGrid отследить в какой ячейке пользователь нажал Enter?
Krasuk (2002-11-04 12:26:00) [1]Всем большое СПАСИБО!!! :-)
Достаточно
BOA_KAA (2002-11-04 12:03:00) [2]procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
if StringGrid1.Row = StringGrid1.RowCount-1 then
begin
StringGrid1.RowCount:=StringGrid1.RowCount+1;
StringGrid1.Row:=StringGrid1.Row+1;
end
else
StringGrid1.Row:=StringGrid1.Row+1;
end;
По нажатию на Enter переходим ни ячейку ниже, если ячейка последняя, то увеличиваем их количество
SottNick (2002-11-04 12:00:00) [3]наверное так
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13
then
showmessage("Ячейка "+inttostr(StringGrid1.Row)+":"+inttostr(StringGrid1.Col));
end;
Skier (2002-11-04 11:57:00) [4]>Krasuk
OnKeyDown+(или OnKeyPress)
код Enter-а+
StringGrid.Row + StringGrid.Col
Separator (2002-11-04 11:55:00) [5]Row, Col
| |
