Навигация по StringGrid

← →
Zhekson (2005-01-12 12:20) [0]

Как по нажатию на Tab скакнуть на следующую. ячейку с определённым значением?

← →
pasha_golub © (2005-01-12 12:31) [1]

TStringGrid.OnKeyDown
TStringGrid.OnSelectedCell
F1

← →
Zhekson (2005-01-12 12:41) [2]

pasha_golub © (12.01.05 12:31) [1]
Хороший ответ. На то что бы в нём разобраться у меня уйдёт время(может много времени) + неизвестно, какие при этом я допущу ошибки.

Нет ли ответа, который можно понять не тратя много времени на разбирательство? За примерчики отдельное спасибо.

← →
Anatoly Podgoretsky © (2005-01-12 12:49) [3]

А что именно в задаче не понятно?

← →
Neznaika © (2005-01-12 12:54) [4]

procedure TStringGrid1.OnKeyDown(xxxxxxxxxxxxxxxxxx);
if key = Не помню сколько; //(Значение Tab)
then begin
//Выделяй что хочешь
end;

IMHO

← →
Zhekson (2005-01-12 13:30) [5]

делаю так:
if (Key = vk_Space) then with AdvStringGrid1 do if Col < ColCount - 1 then while Cells[Col, Row] <> " --" do Col := Col + 1

(Error)Grid index out of range

← →
Zhekson (2005-01-12 13:38) [6]

ой... попрошу не ругаться...
переделываю

← →
Neznaika © (2005-01-12 13:44) [7]

> if (Key = vk_Space) then
> with AdvStringGrid1 do
> if Col < ColCount - 1 then
> while Cells[Col, Row] <> " --" do
> Col := Col + 1

if (Key = vk_Space) then
with AdvStringGrid1 do
if Col < ColCount - 1 then
while Cells[Col, Row] <> " --" do begin
Col :=inc(Col);
if col =ColCount-1 then exit;
end;

или что-то вроде...

if (Key = vk_Space) then
with AdvStringGrid1 do
if Col < ColCount - 1 then begin
repeat
inc(col);
until (Cells[Col, Row] <> " --") or (col=colcount-1);

← →
Anatoly Podgoretsky © (2005-01-12 13:45) [8]

Естественно вылетишь за границы, если не будет найдено " --"

Я ему о том же...

← →
Zhekson (2005-01-12 15:13) [10]

if (Key = vk_Space) then with AdvStringGrid1 do if Col < ColCount - 1 then while (Cells[Col, Row] <> " --") and (Row < RowCount - 1) do begin Col := Col + 1; if col = ColCount-1 then Row := Row + 1; end;

Что в этом коде не так?

← →
Zhekson (2005-01-12 15:29) [11]

всем спасибо... есть контакт.

Извините если кого-то отвлёк... ну не могу я работать в одиночестве.

Навигация по StringGrid_у Найти похожие ветки