📄 20001013003.htm
字号:
<HTML>
<HEAD>
<TITLE>做一个DreamWeaver风格的程序</TITLE>
<META content="MSHTML 5.00.2314.1000" name=GENERATOR>
</HEAD>
<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0
vLink=#990099>
<div align="center">
<table width="744" border="0" cellspacing="0" cellpadding="0" height="76">
<tr>
<td>
<center>
<h2><font size="3"><br>
做一个DreamWeaver风格的程序</font><font color="#0000c0"> </font></h2>
<h3><font size="2">谢慧强</font> </h3>
</center>
<p><font color=#ffffff>----</font> 用过DreamWeaver的人都会发现DreamWeaver将每一个编辑的文件显示在任务栏上，并且用户任意关闭一窗口而不影响其他窗口，好象每一个窗口间没有关联，没有主窗口似的。但我们也能发现其实这些窗口间也有数据是共享的，如存盘的路径。
<p><font color=#ffffff>----</font> 经过研究我发现其实这些窗口其实是属于同一程序的，并且实现方法也非常的简单。下面我用Inprise公司的C++
Builder为大家举一个简单的例子。
<p><font color=#ffffff>----</font> 首先我们创建一个普通的应用程序。在这个程序中包含两个Form,其中Form1为主窗口,我们将Form2设为不由应用程序自动创建。
<p><font color=#ffffff>----</font> 在Form1中加入一新的Public的属性:
<p><font color=#ffffff>----</font> int FormCount;
<p><font color=#ffffff>----</font> 此属性用于记录系统建立的From2的实例的个数,在Form1的OnCreate事件中加入如下代码:
<pre> int i=GetWindowLong(this- >Handle,GWL_STYLE);
TForm2 *F,*G;
F=new TForm2(NULL);
G=new TForm2(NULL);
F- >ParentWindow=GetDesktopWindow();
F- >Caption="F";
G- >ParentWindow=GetDesktopWindow();
G- >Caption="G";
this- >FormCount=2;
SetWindowLong(G- >Handle,GWL_STYLE,i);
SetWindowLong(F- >Handle,GWL_STYLE,i);
F- >Show();
G- >Show();
</pre>
<font color=#ffffff>----</font> 其中GetWindowLong，SetWindowLong为获取/设置Window属性的API函数，具体请看C++
Builder带的Win32帮助。然后运行程序，我们就能发现程序在任务栏上显示了属于此程序的三个任务条。
<p><font color=#ffffff>----</font> 接下来我们要做的事情有两个：
<p><font color=#ffffff>----</font> 1、 隐藏Form1及Application
<p><font color=#ffffff>----</font> 2、 让Form2的实例关闭应用程序
<p><font color=#ffffff>----</font> 实现第一件事情的方法在网上很多地方都提到了，即修改WinMain函数下面是具体的代码（粗斜体为加入的代码）：
<pre>WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application- >Initialize();
Application- >CreateForm(
__classid(TForm1), &Form1);
Application- >ShowMainForm=false;
ShowWindow(Application- >Handle, SW_HIDE);
Application- >Run();
}
catch (Exception &exception)
{
Application- >ShowException(&exception);
}
return 0;
}
</pre>
<font color=#ffffff>----</font> 在这个地方要注意的是光用“Application->ShowMainForm=false;”是不能隐藏主Form(Form1)的，必须将Form1的Visibled属性变为false。
<p><font color=#ffffff>----</font> 实现第二件事情需要用到Application的Terminate方法（结束应用程序）。我们只要在TForm2的OnClose事件中简单加入以下几句程序:
<pre> if (Form1- >FormCount>1)
Form1- >FormCount--;
else
Application- >Terminate();
</pre>
<font color=#ffffff>----</font> 运行程序，你就能发现程序在有任务拦上有两个提示，窗口F及窗口G，而且这两个窗口看起来就象独立的应用程序。
<p><font color=#ffffff>----</font> 至此，一个DreamWeaver风格的程序就做完了，是不是很简单呢。
</p>
</td>
</tr>
</table>
</div>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -