重载 CreateParams 方法即可
声明:
procedure CreateParams(var Params: TCreateParams);override;
procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.WndParent := 0; end;
实现效果:通过StatusStrip显示窗体状态栏同时将状态栏分成三部分居左边显示相关文字信息中间空白显示居右边显示时间信息1.创建窗体及添加StatusStrip默认StatusStrip名称为statusStrip12.在statusS…
现在很多的应用程序都有这样一种功能,当用户选择最小化窗口时,窗口不是象平常那样最小化到任务栏上,而是“最小化”成一个任务栏图标。象FoxMail3.0NetVampire3.0等都提供了这样的功能。实现这样的功能实际上并不复杂,在窗口最小化…
///<summary>///实现窗体的最小化///</summary>protectedoverrideCreateParamsCreateParams{get{constintWS_MINIMIZEBOX=0x0…
把窗口作为某一个窗口的子窗口,然后设置WS_POPUP就可以了。使用CreateWindow时的第三个参数设置为WS_CHILD|WS_POPUP。
usesWindows;typeTfrmLogin=class(TForm)end;implementation{$R*.dfm}procedureTfrmLogin.FormCreate(Sender:TObject);beginSetW…
帮朋友做了一个小程序:启动时最小化至托盘区,显示为一个Windows图标。双击图标可以显示或隐藏主界面。右键弹出菜单。可以用快捷键(Ctrl+Q)隐藏或显示Windows任务栏。由于vista下的任务栏分为圆形的start按钮和普通任务栏,…
问题现象:在使用SendMessageTimeout函数后,5秒后WIN把进程挂在起。这时把程序最小化(原因就是不想让用户看到卡的界面),但点击任务栏按钮界面还原了,拦截消息失败(原因是挂起后消息都放在队排中了),怎么才能不接收还原呢?处理…