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;

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]

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

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