Координаты ячейки относительно верхнего левого угла листа рабочей книги
содержатся в ее свойствах Тор и Left. Чтобы получить координаты ячейки
в активном окне, необходимо провести вычисления, т. е. из значений коор-
динат положения ячейки вычесть значения координат ячейки, которая в
данный момент находится в верхнем левом углу окна листа рабочей книги.
Следующие процедуры определяют и отображают значения координат ячей-
ки в окне (полный исходный текст приложения представлен на сопроводи-
тельном компакт-диске книги).
Определение координат ячейки
procedure TForml.colChange(Sender: TObject);
begin
х.Caption:=currtostr(E.ActiveWorkBook.ActiveSheet.
CelIs[row.Value,col.Value].Le ft-E.ActiveWorkBook.ActiveSheet.Columns.
Item[E.ActiveWindow.ScrollColumn].Left);
end;
procedure TForml.rowChange(Sender: TObject);
begin
у.Caption:=currtostr(E.ActiveWorkBook.ActiveSheet.
Cells [ row. Value, col. Value ] . Top-E. ActiveWorkBook .ActiveSheet. Rows.
Item[E.ActiveWindow.ScrollRow].Top);
end;
|
Главная
Каталог файлов
