Delphi主窗口任务栏菜单的问题
来源:互联网 发布:微信的数据挖掘应用 编辑:程序博客网 时间:2024/05/16 19:15
Delphi的VCL框架在创建应用时TApplication是一个自动创建的隐藏窗口,其它创建的窗口是自动以该窗口为窗口,这就导致创始的主窗口在任务栏的系统菜单只有三项,只要在主窗口的Create事件中将系统菜单用Application的系统菜单替换,并将SysCommand消息转发到主窗口就正常了。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure OnMessage(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
GetSystemMenu(Application.Handle,True);
Application.OnMessage:=OnMessage;
end;
procedure TForm1.OnMessage(var Msg: TMsg; var Handled: Boolean);
begin
case Msg.message of
WM_SYSCOMMAND:
begin
SendMessage(Handle,Msg.message,Msg.wParam,Msg.lParam);
Handled:=True;
end;
end;
end;
end.
- Delphi主窗口任务栏菜单的问题
- Delphi关于非应用程序主窗口显示在任务栏的问题
- 非应用程序主窗口显示在任务栏的问题
- [Delphi]怎样闪动制定窗口在任务栏上的按钮?
- 任务栏窗口上的点击问题
- Delphi 实现任务栏多窗口图标显示
- Delphi 任务栏的自动隐藏与隐藏问题
- MFC 无标题窗口移动、任务栏右键菜单
- ubuntu任务栏|右键菜单|窗口透明
- fluxbox标题栏、任务栏、菜单中文字体显示问题的解决方案
- 关于终端任务栏导致的窗口上浮问题
- 解决vc最大化窗口时,任务栏被覆盖的问题
- Delphi下让窗口不显示在任务栏的另类方法
- [delphi]窗口最大化时怎么才能不要把任务栏盖住
- Delphi 类似实现QQ多窗口显示任务栏上
- [Delphi]窗口最大化时怎么才能不要把任务栏盖住
- Delphi 类似实现QQ多窗口显示任务栏上
- Delphi 类似实现QQ多窗口显示任务栏上
- 未能建立数据库连接
- 用中文写着国人自己的代码
- Using and Extending Kojoney SSH Honeypot
- 十大经典理论
- 揭迷"C++类的对象在内存的布局"
- Delphi主窗口任务栏菜单的问题
- Memcache
- 对Ajax的一些浅显理解
- do-----while(0)
- Windows消息机制
- 实现绘图区的大十字光标
- linux初学之网络配置
- LUA整合进MFC代码
- shell中if的相关参数