1

问题

好吧，我设计了一个对话框表单，当用户在 TStringGrid 组件上选择某些单元格（单选，而不是多选）时调用它。

此对话框将集中在这些选定单元格之一的中心。

但它没有发生:(

可能的解决方案=我想要的

我想获取一个单元格的屏幕位置，即绝对屏幕坐标，而不是通过CellRect().

我在做什么

为了计算单元格的中心，我目前必须以这种方式对以下组件的坐标求和：

TRect pos;

pos = table->CellRect(Col,Row);

pos.Left += form->Left + panel->Left + frame->Left + table->Left;
pos.Right += pos->Left;

pos.Top += form->Top + panel->Top + frame->Top + table->Top;
pos.Bottom += pos->Top;

然后居中对话框：

dialog->Left = (pos->Left + pos->Right)/2 - dialog->Width/2;
dialog->Top = (pos->Top + pos->Bottom)/2 - dialog->Height/2;

由于某些未知原因，Col 和 Row 为对话框的正确位置添加了偏移量，因此较大的 Col 和 Row 值将对话框位置设置为距离正确位置（所选单元格的中心）很远的距离。

 ___screen________________________________________
|                                                 |
|   ___form___________________________________    |
|  |                                          |   |
|  |                                          |   |
|  |   ___panel____________________________   |   |
|  |  |                                    |  |   |
|  |  |   ___frame_______________          |  |   |
|  |  |  |                       |         |  |   |
|  |  |  |                       |         |  |   |
|  |  |  |  ___table_________    |         |  |   |
|  |  |  | |                 |   |         |  |   |
|  |  |  | |       _cell_    |   |         |  |   |
|  |  |  | |      |______|   |   |         |  |   |
|  |  |  | |                 |   |         |  |   |
|  |  |  | |_________________|   |         |  |   |
|  |  |  |_______________________|         |  |   |
|  |  |____________________________________|  |   |
|  |                                          |   |
|  |                                          |   |
|  |__________________________________________|   |
|_________________________________________________|

如果我有表格或所选单元格的屏幕位置

实现和检测这些偏移误差将变得如此容易，因为上述总和上的分量坐标将更少......

4

1 回答 1

1

调用CellRect()以获取客户端坐标，然后将它们转换为屏幕坐标。有几种方法可以做到这一点：

  1. 使用TControl::ClientToScreen()方法：

    TRect pos = table->CellRect(Col, Row);

TPoint &tl = pos.TopLeft();
tl = table->ClientToScreen(tl);

TPoint &br = pos.BottomRight();
br = table->ClientToScreen(br);

  2. offsetTRect使用TControl::ClientOrigin属性，指定StringGrid客户区左上角的屏幕坐标：

    TPoint pt = table->ClientOrigin;
TRect pos = table->CellRect(Col, Row);
::OffsetRect(&pos, pt.x, pt.y);

  3. 使用 Win32 APIMapWindowPoints()函数（记住这TStringGrid是一个图形控件，所以它没有自己的窗口，你必须使用它的父窗口代替），例如：

    TRect pos = table->CellRect(Col, Row);
::OffsetRect(&pos, table->Left, table->Top);
::MapWindowPoints(table->Parent->Handle, NULL, (LPPOINT)&pos, 2);
于 2013-06-05T02:06:55.767 回答