盒子论坛 v2.1

您要做操作系统啊~~~~~~~~~~~~~
呵呵~这些都比较好做，只要Popmenu和连接到Explorer.exe的按钮就可以了。说得比较简单，望见谅，您可以问问Zizii他们，应该懂得这些的，我可是菜鸟~~~~~~~~~
----------------------------------------------
大家好，我是Flyers。

是Delphi.Net版主，小弟会尽力解决大家的问题！谢谢支持！

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/2/2 19:35:25

2楼：

听说XP源代码被盗了
去找找
给咱要个COPY！

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

river (HZG)	★☆☆☆☆	-
	盒子活跃会员

2004/2/2 19:37:00

2楼：

OS，难度太大了，偶帮不了你了！
----------------------------------------------
尽吾志而无悔
www.2ccc.com

作者：

s_orry (1岁)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 10:43:32

3楼：

也不算是操作系统吧！就是类似与微软的explorer.exe程序了。
zizii大哥、bios大哥帮忙给看看吧。小弟还是头一次研究这些。有没有例子呀！
----------------------------------------------
不爱我-就别靠近我。

作者：

s_orry (1岁)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 13:18:18

4楼：

在顶一次了。

----------------------------------------------
不爱我-就别靠近我。

作者：

pgh (踏雪)	★☆☆☆☆	-
	普通会员

2004/2/3 13:28:14

5楼：

不知你要做一个怎样的程序，但你可以这样试试
放一个Panel，使其Bottom，以此为容器，放一个ToolBar,设置为left,放一个状态条，设置为client，放一个菜单，设置项目，将ToolBar的菜单属性设置为此菜单。运行。
----------------------------------------------
-

作者：

lovedelphi1 (梦之铃)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 14:24:47

6楼：

Explorer.exe不是个简单的应用程序.它的功能应该是通过接口来实现的吧.

----------------------------------------------
-

作者：

qingwen07 (qingwen)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 17:12:20

7楼：

pgh兄,怎么样才能让菜单"上拉",就想Windows里的开始菜单一样啊!!

----------------------------------------------
-

作者：

hotyei (青出于蓝)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 17:44:21

8楼：

主窗口放一个 TListView ，然后在最下面放一个 ToolBar ，基本上就是这样了。当按下开始按钮，就弹出菜单。当你的弹出位置是在屏幕下面时，菜单会自动上拉的。
----------------------------------------------
米软科技有限公司

http://www.szmesoft.com

作者：

river (HZG)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 20:28:49

9楼：

呵呵，气氛真好。
我觉得咱么应该合伙搞一个OS出来，让那个什么又“微”又“软”的家伙给滚蛋！
如何？
----------------------------------------------
尽吾志而无悔
www.2ccc.com

作者：

qingwen07 (qingwen)	★☆☆☆☆	-
	盒子活跃会员

2004/2/4 9:28:50

10楼：

花心萝卜大哥:
我想要的是用左键点击才向上弹啊,你说的应该是POPMenu吧!!能把它变成使用左键才弹出菜单吗?就象windows里的开始菜单啊~!!!!
小先谢过了!

----------------------------------------------
-

作者：

pgh (踏雪)	★☆☆☆☆	-
	普通会员

2004/2/4 10:09:36

11楼：

如果你对菜单一定要上拉，如windows的菜单一样，你可以在ToolBar工具条内加一个ToolButton（按右键便有一个菜单出现，选添加ToolButton即可）,双击此按钮编辑事件，在事件中写入      TrackPopupMenu(YourMenuItem.Handle,TPM_LEFTALIGN,MenuBox.Left+self.Left,MenuBox.Bottom-2+self.Top,0,Handle,nil);此函数可按指定位置显示菜单，但你不能再检测到菜单的事件，因而你要重载WM_Common消息。示例如下：
If not Assigned(Menu) Then Exit;
  TrackMenu(Menu.Items[HitMenuItem],msg.ItemID);

trackMenu函数如下所示：
procedure TfmtBase.TrackMenu(aitem:TMenuItem;comm:WORD);
var i:integer;
Begin
  For i:=0 To aItem.Count-1 Do
  Begin
    If aItem[i].Command=comm Then
    If @aItem.Items[i].OnClick<>nil Then
    Begin
      aItem.Items[i].OnClick(aItem.Items[i]);Break;
    End;
    TrackMenu(aItem[i],comm);
  End;
End;
一切OK，祝好运

----------------------------------------------
-

作者：

pgh (踏雪)	★☆☆☆☆	-
	普通会员

2004/2/4 10:13:54

11楼：

作者：

pgh (踏雪)	★☆☆☆☆	-
	普通会员

2004/2/4 10:17:13

12楼：

坐标请自已计算设定，注意把Toolbar的菜单属性置空
----------------------------------------------
-

作者：

hotyei (青出于蓝)	★☆☆☆☆	-
	盒子活跃会员

2004/2/4 15:35:23

13楼：

只要您保证这个按钮在整个屏幕的下方就可以了，菜单会自动向上的，是不是很简单？

var
  PT : TPoint;
begin
  PT.X := 0; PT.Y := 0;
  PT := BitBtn.ClientToScreen(PT);
  Popupmenu1.Popup(PT.X,PT.Y);
end;
----------------------------------------------
米软科技有限公司

http://www.szmesoft.com

作者：

s_orry (1岁)	★☆☆☆☆	-
	盒子活跃会员

2004/2/5 11:04:59

14楼：

大家有谁用过createdesktop、closedesktop、opendesktop等函数呀！有没有什么例子呀！这些函数是关于桌面的吧！
----------------------------------------------
不爱我-就别靠近我。

作者：

flyers (flyers)	★☆☆☆☆	-
	普通会员

2004/2/5 11:58:06

15楼：

如果您想做一个代替Explorer.exe，我想太难，因为Explorer不光是资源查看器，而且还是OS的Shell，是调用任务栏、所有图标的程序，没有了他，您的所有程序都无法显示，任务栏也会不见，但是可以启动程序……
----------------------------------------------
大家好，我是Flyers。

是Delphi.Net版主，小弟会尽力解决大家的问题！谢谢支持！

信息

登陆以后才能回复