Добавить строку/столбец в Tstringgrid

[Алексей_2012]

Здравствуйте, у меня к вам появился вопрос, как можно проверить условие: если курсор стоит в той ячейке, которая на последнем столбце и последней строке, то добавить еще строку/столбец, иначе если курсор был в ячейке, и ячейка пуста, и курсора в ней нет, то удалить добавленные строки и столбцы, при условии того, что они не заполнялись. Возможно ли такое сделать?

[eval]

надо код писать, а без кода нет

[Serge_Bliznykov]

не понятно условие события "курсор стоит в ячейке"..
А так - можно, конечно.
добавить строку:

StringGrid1.RowCount := StringGrid1.RowCount + 1;

добавить столбец:

StringGrid1.ColCount := StringGrid1.ColCount + 1;

удалить последнюю строку (внимание! без очистки!!)

if StringGrid1.RowCount >0 then
   StringGrid1.RowCount := StringGrid1.RowlCount - 1;

удалить последний столбец (внимание! без очистки!!)

if StringGrid1.ColCount >0 then
   StringGrid1.ColCount := StringGrid1.ColCount - 1;

идея понятна?

[Алексей_2012]

Идея и так была ясна, но условие проверить не могу, а все-то, чего бы мне хотелось добиться на скрине, то есть если курсор (ну или клик мышкой по красной ячейке), то добавить строку/столбец, затем если чел переключился на другую ячейку, то удалить добавленные строку/столбец, при условии если переключился не на "новосозданные" столбцы и строки

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

[Serge_Bliznykov]

на события код вешать умеете?

тогда, например, на событие грида OnClick назначайте такой код:

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
   if (StringGrid1.Col = (StringGrid1.ColCount-1)) then
        StringGrid1.ColCount := StringGrid1.ColCount + 1;
   if (StringGrid1.Row = (StringGrid1.RowCount-1)) then
        StringGrid1.RowCount := StringGrid1.RowCount + 1;
end;

p.s. удаление столбцов с проверкой на пустоту добавить можно на этом же событии при условии Col<(ColCount-1) или Row<(RowCount-1)

[impeee]

у стринггрида есть событие OnSelectCell, оно имеет параметры ACol и ARow, которое содержит номер ряда и колонны выделенной ячейки.

If (ACol = StringGrid1.ColCount - 1) and (ARow = StringGrid1.RowCount - 1) then ....

условие на выборку "красной ячейки"

[Serge_Bliznykov]

impee, можно и на onSelectCell
но onClick тоже работает