社区
Delphi
帖子详情
菜单问题
xiaohuilau
2000-08-08 08:46:00
如何用Delphi实现象[开始]菜单一样的效果?即在菜单的左边有一个" Windows 98 "图片的Bar?
...全文
138
6
打赏
收藏
菜单问题
如何用Delphi实现象[开始]菜单一样的效果?即在菜单的左边有一个" Windows 98 "图片的Bar?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
skt642
2001-05-31
打赏
举报
回复
2300关注!
kxy
2000-08-09
打赏
举报
回复
>>如何控制外調的exe程式也以showmodul的形式完成?
什么意思?
》》之前我也發了一份貼子 ?
在哪里?
SimonDW
2000-08-09
打赏
举报
回复
用createprocess如何,sunrised
sunrised
2000-08-09
打赏
举报
回复
到處都有的coolmenu控件可以做出比win98更花俏的菜單,如需要,我可以把我的系統集成平台發給你(完全類似于win98),但很遺憾,如何控制外調的exe程式也以showmodul的形式完成?我還沒控制好,之前我也發了一份貼子,但無人解決此問題!!不知哪位老兄指點一下.
alin
2000-08-09
打赏
举报
回复
AHM2000中有相应的菜单控件,我的主页上有源代码和控件
alin.heha.net
sunrised
2000-08-09
打赏
举报
回复
我試過用Createprocess,但效果不太理想,以下我把我的原程式送上,望哪位高手指點一下!
另:kxy,我把問題詳細說明一下,希能出手相助!!
我做了一個完全類于win98的集成平台來替換win98桌面,以實現完全類似于winnt的控制我公司的所有mis系統,但通過集成平台桌面調用word與execl等外部exe時,不能把這些exe的操作界面控制在前台(即開啟外部exe程式后,光標再次移到集成平台時,外調的exe界面卻躲在我的程式后面去了),所以想辦法控制以下問題:
一:應用程式啟動外調的exe程式(word,execl)后,即光標不能移至該應用程式;
二:應用程式必須等待外調的exe程式結束后方能激活!
現我把我的做法公布(但仍有問題),望高手指點:
procedure Tmainform.OpenBtnClick(Sender: TObject);
var
scommandline:string;
lpstartupinfo:Tstartupinfo;
lpprocessinformation:Tprocessinformation;
wfind:hwnd;
begin
//在工具條上集成檔案總管;
try
scommandline:='EXPLORER.EXE';
fillchar(lpstartupinfo,sizeof(tstartupinfo),#0);
lpstartupinfo.cb:=sizeof(tstartupinfo);
lpstartupinfo.dwFlags:=startf_useshowwindow;
lpstartupinfo.wShowWindow:=SW_normal;
createprocess(nil,pchar(scommandline),nil,nil,true,create_new_console or
normal_priority_class,nil,nil,lpstartupinfo,lpprocessinformation);
wfind:=lpprocessinformation.hProcess;
waitforsingleobject(wfind,INFINITE); //等待應用程式關閉;
except
raise;
end;
//terminateprocess(wfind,1); 關閉程式;
end;
Android侧滑
菜单
SlidingMenu 完整实例代码
代码为博客实例代码:有
问题
博客留言:http://blog.csdn.net/lmj623565791/article/details/36677279
Android 打造史上最简单的侧滑
菜单
代码来自博客实例,有
问题
请留言:http://blog.csdn.net/lmj623565791/article/details/39185641
Excel下拉
菜单
怎么做 Excel排序高手技巧视频教程
本套教程是系列Excel入门的操作技巧,主要应用于Excel表格的存储、整理、归类等操作。比如,我们可以记录公司每天都卖了什么产品,什么时间,销售是谁,销售额是多少
Android 超高仿 QQ5.0 侧滑
菜单
项目完整实例代码
代码为博客的实例代码,有
问题
请博客中留言:http://blog.csdn.net/lmj623565791/article/details/39185641
Android DrawerLayout 高仿QQ5.2双向侧滑
菜单
程序文件
代码为博客的示例代码,有
问题
请博客留言http://blog.csdn.net/lmj623565791/article/details/41531475。
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章