关于窗口菜单的问题!

DelUser 2002-06-20 03:29:15
比如 现在菜单上有一个MenuItem的caption 叫窗口。初始化的时候为空的。
当用户电击次MenuItem时把当前系统中所有打开的Form的Caption加入并显示。
请问怎么做?(请列出源代码,或发邮件给我 sj539@sina.com).高分相送!

如能解决当前所有窗口的平铺和层叠问题,在加100分!
...全文
26 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhptj 2002-06-21
  • 打赏
  • 举报
回复
几位说得很详细了
wbamboo 2002-06-20
  • 打赏
  • 举报
回复
楼上的说的对
dext 2002-06-20
  • 打赏
  • 举报
回复
BOOL EnumWindows(
WNDENUMPROC lpEnumFunc, // pointer to callback function
LPARAM lParam // application-defined value
);
byc6352 2002-06-20
  • 打赏
  • 举报
回复
在form1的显示中:
MenuItem.Caption := Form1.Caption;

MainFrm.TileMode := tbHorizontal;
MainFrm.TileMode := tbVertical;
Cascade;
knock 2002-06-20
  • 打赏
  • 举报
回复
高手都回答了
yang6130 2002-06-20
  • 打赏
  • 举报
回复
设置父窗口的WindowMenu属性为你自己定义的一个菜单项caption就行了
日总是我哥 2002-06-20
  • 打赏
  • 举报
回复
好像只要设置一个什么选项就是了~~

唉呀~~太久没做MDI程序了,不记得了~~
debussy 2002-06-20
  • 打赏
  • 举报
回复
你用的是MDI罢?
使用MainForm的Tile,Cascade可以达到层叠和平铺效果。
everydayniceday 2002-06-20
  • 打赏
  • 举报
回复
窗口的平铺和层叠:cascade,tile方法!
Snakeguo 2002-06-20
  • 打赏
  • 举报
回复
MenuItem.Caption := Form1.Caption;

{水平平铺所有窗体}
MainFrm.TileMode := tbHorizontal;
Tile;

{垂直平铺所有窗体}
MainFrm.TileMode := tbVertical;
Tile;

{层叠所有窗体}
Cascade;

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧