Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2010, 14:19   #1
Neroaz
Пользователь
 
Регистрация: 23.03.2010
Сообщений: 36
По умолчанию Delphi. StringGrid. PopupMenu. Удаление строки

Опишу словами алгоритм.
Есть StringGrid. Хочу удалить допустим 4 строку. Нажимаю правой кнопкой появляется PopupMenu 'Удалить текущую строку'. Клик и строки нет.
Цитата:
procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid);
var
i: Integer;
begin
Grid.Row := RowNumber;
if (Grid.Row = Grid.RowCount - 1) then
{ On the last row}
Grid.RowCount := Grid.RowCount - 1
else
begin
{ Not the last row}
for i := RowNumber to Grid.RowCount - 1 do
Grid.Rows[i] := Grid.Rows[i + 1];
Grid.RowCount := Grid.RowCount - 1;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GridDeleteRow(3, stringGrid1);
end;
Нужно не 3 строку а выбранную n-строку. Это проблема?
Я примерно догадываюсь как это будет примерно выглядить .
case номер строки of
повляется popupmenu. Если нажали то вызываем процедуру, которая удаляет строку. Наверно так?
Neroaz вне форума Ответить с цитированием
Старый 03.04.2010, 18:36   #2
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Ну, я тебе сделал удаление через PopUp...
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Старый 04.04.2010, 16:47   #3
Neroaz
Пользователь
 
Регистрация: 23.03.2010
Сообщений: 36
По умолчанию

Вопрос еще в силе.
Neroaz вне форума Ответить с цитированием
Старый 04.04.2010, 16:51   #4
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Решил задачу, но слишком много лишней болтовни не по теме... Лично я предпочитаю с ним больше не связываться...
Перемешивай дело с бездельем и не сойдешь с ума...

Последний раз редактировалось Grag; 04.04.2010 в 17:10.
Grag вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсказки и PopupMenu (Delphi 7) alxd Компоненты Delphi 11 20.09.2009 11:34
Не получается организовать удаление из StringGrid program123 Помощь студентам 6 22.03.2009 21:50
Удаление в StringGrid program123 Компоненты Delphi 8 07.03.2009 13:07
StringGrid - удаление строк и столбцов ReM Общие вопросы Delphi 4 22.12.2008 19:17
Delphi. Удаление строки. Xeon332 Помощь студентам 18 11.11.2008 15:55