创建Photoshop式浮动窗口应用程序计算机二级考试

文章作者 100test 发表时间 2009:04:30 03:54:14
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　用过Photoshop的朋友一定对它的那些方便的浮动面板记忆犹新，其实这些面板就是一个个的小窗体，但这些小窗体都放在Photoshop的主窗体上（不是存在主窗体中），有自己的标题栏、最小化按钮及最大化按钮。但它们与MDI程序不同的是，他们可以拖到主窗体外，更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。
　　用Spy &. Capture查看一下就不难发现，这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例，主窗体的Handle是001906D8，所有面板的Parent Window指向的就是001906D8），而一般我们创建的窗体的Parent是为None的。
　　下面的代码就为实现这种Photoshop式浮动窗口的示范：
　　//......
　　var
　　Form1: TForm1.
　　implementation
　　uses Unit2.
　　{$R *.dfm}
　　procedure TForm1.Button1Click(Sender: TObject).
　　begin
　　//把Form2的Parent改为Form1
　　Form2 := TForm2.CreateParented(Form1.Handle).
　　Form2.Show.
　　//使得Form2处于激活状态
　　SendMessage(Form2.Handle, WM_NCACTIVATE, Ord(True), 0).
　　end.
　　procedure TForm1.Button2Click(Sender: TObject).
　　begin
　　Form2.Close.
　　end.
　　procedure TForm1.FormDestroy(Sender: TObject).
　　begin
　　//记得加上这一句
　　if Form2.Showing then Form2.Close.
　　end.
　　end.
　　上面的代码就可以显示一个与Form1同处激活状态的Form2，再对Form2的BorderStyle与BorderIcons属性作一些必要的选择，就可以实现更加完美的效果！

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总