这个效果应该如何做？(100分)

J

jobsxy

Unregistered / Unconfirmed
GUEST, unregistred user!
我正在做一个业务系统的录入模块，由于录入项目太多FORM已是整个屏幕，<br>我想做这么个效果，即象WIN95中的“开始”状态条一样可以平时隐藏，鼠标<br>移到某个位置时，状态条即浮现出来，我把“存盘”，“返回”等按纽放在此<br>状态条上，我想这样做界面既不乱又新颖，可怎做了？WIN95是怎样实现的？
 
use<br><br>SHAppBarMessage(DWORD dwMessage, PAPPBARDATA pData);
 
是不是想象东方快车一样？<br>说一个简单方法。<br>1、Form设置为bsToolWindow或干脆bsNone；<br>2、加一个定时器，100ms；<br>3、在定时器的触发事件中判断鼠标的位置，用GetCursorPos(@pos);<br>BOOL GetCursorPos(<br>&nbsp; &nbsp; LPPOINT lpPoint // address of structure for cursor position &nbsp;<br>&nbsp; &nbsp;); <br>&nbsp;<br>Parameters<br>lpPoint<br>Points to a POINT structure that receives the screen coordinates of the cursor. <br>判断鼠标的位置，再让Form显示还是缩小或隐藏.<br><br>(今天心情不太好,具体实现你就看着办吧）<br>
 
我有一个例子，是用Delphi做的一个构件，即浮动快捷条，它可以浮动在该窗口的上面作为一个单独的窗口，也可以Duck在窗口的四边，如果Duck在窗口的四边，还可以隐形---正如你要求的一样。如果你需要的话，我可以将例子的原代码Email给你。
 
&lt;a href="mailto:glowing@21cn.com"&gt;请顺便给我妹一份&lt;/a&gt;。谢谢！
 
&lt;a href="mailto:cytown@990.net"&gt;我也要! &lt;/a&gt;
 
&lt;a href="mailto:delete@mail.ustc.edu.cn"&gt;还有我&lt;/a&gt;
 
jobsxy : 你要吗？是不是发给你可以拿分了？<br>各位： &nbsp; &nbsp;等发给jobsxy时我会顺便发给你们的。
 
嘿嘿<br>
 
还有我 tangw@263.net
 
我也要! <br><br>&nbsp;<br>
 
总算冲上大富翁了，我从169上来简直太痛苦从4点到现在才上来，<br>刺猬老兄别见怪，你的东西我当然需要谢谢，分数待收到后马上（<br>（当然得看冲不冲的上）给！<br><br>amo老兄心情不好吗？没事，麻烦你再回答一下我FORMAT的用法的问题我一定给分<br>不知这样你的心情会不会好<br><br>还有各位，是不是有点占便宜...（玩笑）<br><br><br>EMAIL:jobs@ynmail.com<br>
 
刺猬老兄,妹我,kevins&amp;126.com
 
cmldy@263.net <br>我也要
 
刺猬老兄一定去度周末了
 
正处于热切期盼状态
 
大家对此问题的解决方法有何高见？<br>amo: 你的方法也可以但能不能做到“浮”的效果？<br>teargirl: 你这个函数应该怎么用，关键是第二个参数是怎么回事？<br>
 
各位高手，还有何高见？
 
刺猬咋不见有的邮件？
 
您必须登录或注册才可回复。

Similar threads

不
奇淫怪巧之给Delphi的PrintDialog增加一个页码选定范围打印的Edit - 不得闲
回复
0
查看
722
不得闲
不
不
奇淫怪巧之在Delphi中调用不申明函数 - 不得闲
回复
0
查看
708
不得闲
不
S
[原]pgdac和unidac插入效率究竟差多少？
回复
0
查看
747
SUNSTONE的Delphi笔记
S
S
[原]pgdac和unidac插入效率究竟差多少？
回复
0
查看
696
SUNSTONE的Delphi笔记
S
D
[原]Delphi FireMonkey如何翻译AndroidSDK中的Java类为JNI单元
回复
0
查看
827
DelphiTeacher的专栏
D
顶部