固定的

Form 像一个对话框,何不试试下面的语句？ 

C++ Builder 
请参照

Delphi 的例子 

Delphi 
您可以覆写

 CreateParams() 这个 TWinControl 的虚拟程序, 改变 form 的 wc.Stylee, 将 WS_SYSMENU 这个旗标解

除

, 这样, 就不会有左上角的 

SystemMenuBox 了. 
至於不能移动

.缩小/放大, 可以自已拦下 WM_NCHITTEST, 然後一概回应滑鼠点在视窗 

Client 区域, 相信这个视窗就呆呆的不会动了. 
详情可以查一下

 Win32API Help 的 CreateWindow() 与 WM_NCHITTEST 的说明. 

unit Unit1; 
interface 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls; 
type 
TForm1 = class(TForm) 
Button1: TButton; 
procedure Button1Click(Sender: TObject); 
private 
{ Private declarations } 
procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST; 
protected 
procedure CreateParams(var Params: TCreateParams); override; 
public 
{ Public declarations } 
end; 
var 
Form1: TForm1; 
implementation 
{$R *.DFM} 
巧用

Delphi 制作溅射屏幕 

　　精心编写的

WINDOWS 程序显示启动注意事项,称之为溅射屏幕(splash screen)。利用一点儿小小的内容,即可

给程序的显示添加不少色彩。

 

　　由于工程本身创建程序的主窗口

,且启动溅射屏幕必须在创建主窗口之前出现,所以工程文件必须创建自己的

启动屏幕。这意味着用户必须修改源代码来创建工程文件

,而这通常在 DELPHI 编程中是不需要的。下面的过程介

绍了溅射屏幕的建立过程。

 

　　

1、开始一个新的工程。将窗体命名为 MainForm,同时将其 Caption 属性设置为 SplashinDemo。把这个工程保存

在一个目录中

,如 C:ProjectsSplashin。把 MainForm 的单元命名为 Main,把工程文件命名为 Splashin。 

　　

2、在 MainForm 中插入一个 Button 组件。将 Button 的 Name 属性改为 ExitButton,而将其 Caption 属性改为

Exit。为 ExitButton 的 OnClick 事件创建一个处理器,在过程的 begin 和 end 关键词之间插入 Close;语句。 
　　

3、选取 File|New Form 命令,或者单击 New Form 速度按钮。添加一个新的窗体。 

　　

4、将这个窗体的 Name 属性改变为 SplashForm,删除其 Caption 属性。此外,将其 BorderStyle 属性改变为

bsnone,同时将 BorderIcons 下的三个子值设置为 False。