Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
15th
Июл
Как сделать при клике в каждом столбце StringGrid свое действие?
Posted by Chas under Пост-обзор
Допустим при если кликнуть по значению в первом столбе 3 строки то нужно получить значение из ячейки и открыть браузер и страницу в нем с этим значением,другой столб другое действие итд
Прик:
Создаем процедуру на событие OnClick:
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
Значение := StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
if StringGrid1.Col = 1 then //ткнули в ячейку второй колонки
Действие 1
if StringGrid1.Col = 2 then //ткнули в ячейку третьей колонки
Действие 2
//другой вариант
case StringGrid1.Col of
0 : Действие 1;
1 : Действие 2;
2 : Действие 3;
end;
end;