13,825
社区成员
发帖
与我相关
我的任务
分享关于吸附窗体的问题?请大家参与!!
这个程序是在CB5下编译成功的，我在CB6下编译，其中的一个错误是说没有这个TDockableForm（可吸
附窗体）类型，大家谁做过，帮我在CB6中完成这个程序，或者说，在CB6中和它（TDockableForm）一
样的的功能是那一个类型？
void __fastcall TMainWin::DockPanelDockOver(TObject *Sender,
TDragDockObject *Source, int X, int Y, TDragState State,
bool &Accept)
{
Accept = (dynamic_cast<TDockableForm*>(Source->Control) != NULL);//这就是程序出错的地方,说没有这个TDockableForm（可吸附窗体）类型
if (Accept)
{
// Modify the DockRect to preview dock area.
Windows::TPoint TopLeft = DockPanel->ClientToScreen(Point(0, 0));
Windows::TPoint BottomRight = DockPanel->ClientToScreen(
Point(this->ClientWidth / 3, DockPanel->Height));
Source->DockRect = Windows::TRect(TopLeft, BottomRight);
}
}
附窗体）类型，大家谁做过，帮我在CB6中完成这个程序，或者说，在CB6中和它（TDockableForm）一
样的的功能是那一个类型？
void __fastcall TMainWin::DockPanelDockOver(TObject *Sender,
TDragDockObject *Source, int X, int Y, TDragState State,
bool &Accept)
{
Accept = (dynamic_cast<TDockableForm*>(Source->Control) != NULL);//这就是程序出错的地方,说没有这个TDockableForm（可吸附窗体）类型
if (Accept)
{
// Modify the DockRect to preview dock area.
Windows::TPoint TopLeft = DockPanel->ClientToScreen(Point(0, 0));
Windows::TPoint BottomRight = DockPanel->ClientToScreen(
Point(this->ClientWidth / 3, DockPanel->Height));
Source->DockRect = Windows::TRect(TopLeft, BottomRight);
}
}
...全文
请发表友善的回复…
发表回复
3996906 2005-01-04
- 打赏
- 举报
我还以为是媳妇呢?原来是靠山!
--------------------------------------------
这个比喻真是没得说啊~~~~~
--------------------------------------------
这个比喻真是没得说啊~~~~~
从横四海 2005-01-04
- 打赏
- 举报
怎么做的?
constantine 2005-01-04
- 打赏
- 举报
Accept = (dynamic_cast<TMainWin*>(Source->Control) != NULL);//这就是程序
我还以为是媳妇呢?原来是靠山!
我还以为是媳妇呢?原来是靠山!
从横四海 2005-01-04
- 打赏
- 举报
up
wuxking 2005-01-04
- 打赏
- 举报
up
yjy1001 2005-01-04
- 打赏
- 举报
没装BCB6……
