Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];

Вниз

StringGrid   Найти похожие ветки 

← →
Krasuk   (2002-11-04 11:51) [0]

Подскажите пожалуйста как можна в StringGrid отследить в какой ячейке пользователь нажал Enter?

---

← →
Separator   (2002-11-04 11:55) [1]

Row, Col

---

← →
Skier   (2002-11-04 11:57) [2]

>Krasuk
OnKeyDown+(или OnKeyPress)
код Enter-а+
StringGrid.Row + StringGrid.Col

---

← →
SottNick   (2002-11-04 12:00) [3]

наверное так
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13
then
showmessage("Ячейка "+inttostr(StringGrid1.Row)+":"+inttostr(StringGrid1.Col));
end;


---

← →
BOA_KAA   (2002-11-04 12:03) [4]

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 переходим ни ячейку ниже, если ячейка последняя, то увеличиваем их количество

---

← →
Krasuk   (2002-11-04 12:26) [5]

Всем большое СПАСИБО!!! :-)
Достаточно

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.058 c