Grid Grid Grid... от TMS

← →
Nick_serov (2006-04-04 13:49) [0]

Скачал компонент от TMS GridPack. Довольно симпатичный Grid. С табличками я еще не работал в Делфях, но тут пришлось...
Подскажите плиз, как задать переменной номер выделенного в данный момент столбца и строки!!! Замучился...

← →
Sergey13 © (2006-04-04 13:54) [1]

2Nick_serov (04.04.06 13:49)
>как задать переменной номер выделенного в данный момент столбца и строки!!!
А зачем тебе это?

← →
Nick_serov (2006-04-04 14:17) [2]

> как задать переменной номер выделенного в данный момент
> столбца и строки!!!
> А зачем тебе это?

(скорее всего тему надо переместить в "Начинающим")
Опишу проблему полностью:

У меня есть табличка Excel, я к ней обращаюсь

if
OD1.Execute then
begin
n := OD1.FileName;
ExAp1.Workbooks.Add(n,0);
ExW1.ConnectTo(ExAp1.ActiveWorkbook);

и гружу в Grid

for j := 1 to 9 do
begin
grid1.Cells[j,i] := ExAp1.Cells.Item[i,j].Value ;
end ;
ExW1.Close;

Появляется в Grid"e табличка с 9-ю колонками, в последней колонке отображается цена. Мне эту цену нужно изменить в зависимости от размера под определенный процент и поместить в следующую колонку. Вот как это сделать????

← →
Nick_serov (2006-04-04 14:22) [3]

Как узнать положение в Таблице тока шо разобрался, банальная вещь =)))

для колонки:

procedure TForm1.grid1Click(Sender: TObject);
begin
d := grid1.col;
edit2.Text := inttostr(d);
end;

для строки : grid1.row;

а вот как взять значение из последней колонки для всего товара (Цена), по определенному её изменить и вставить в следующую колонку остается пока проблемой!

← →
Nick_serov (2006-04-04 14:58) [4]

Вот еще несколько конкретных вопросов:

Как из выделенной ячейки выхватить текст и вставить например в Memo?

как организовать поиск в таблице?

Grid Grid Grid... от TMS Найти похожие ветки