Borland Delphi 窗口类核心问题,请大家进入讨论！！！ (200分)

pcexplorer · 2001-06-25

以下是我从TForm继承的叫TAppFrm功能是更改系统菜单 (主要是Delphi写的程序都有个通病,就是系统菜单和标准 的不一样,太丑) 你可以发现在任务栏上单击右键弹出的系统菜单和标准的 是一样的,但问题来了当你从TAppFrm继承创建一个实例 如Form1在Form1上放一个Button,再创建一个实例 如Form2，Button的Click中 if not assigned(Form2) then   Form2:=TForm2.Create(self); try   Form2.ShowModal; finally   Form2.Free;   Form2:=nil; end; 你可以首先使程序失去焦点然后在任务栏上单击该程序,问题 就出现在这里你发先主窗口Form1盖住了Form2由于是ShowModal 所以你的Form1是无法接受键盘和鼠标的,于是我想到了 CreateParams中的WndParent,我从TForm继承叫AppChildFrm 重载CreateParams. 将Params.WndParent:=Application.MainForm.Handle; Modal Window问题解决,但是我又发现问题问题还有 当你在Form1上放置一个TOpenDialog用同样的方法发现 OpenDialog窗口到主窗口后面去了 先看看我的自定义类和测试程序 我是百思不得其解!!! {这是一个封装标准Windows窗口的类,其中TAppFrm窗口类} {是具有标准Windows风格主窗口类,TAppFrm窗口类必须和} {TAppChildFrm窗口类一起使用} unit AppWnd; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type   TAppFrm = class(TForm)     procedure CreateParams(var Params:TCreateParams);override;   private     procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND;     procedure WMMenuSelect(var Msg:TWMMenuSelect);message WM_MENUSELECT;     procedure CreateAppWnd;     { Private declarations }   public     { Public declarations }     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   end; {--------------------------------------------------------------}   TAppChildFrm = class(TForm)     procedure CreateParams(var Params:TCreateParams);override;   private     { Private declarations }   public     { Public declarations }     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   end; {--------------------------------------------------------------} implementation { TAppFrm } constructor TAppFrm.Create(AOwner: TComponent); begin   inherited;   CreateAppWnd; end; procedure TAppFrm.CreateAppWnd; begin   SetWindowLong(Application.Handle,GWL_EXSTYLE,         GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end; procedure TAppFrm.CreateParams(var Params: TCreateParams); begin   inherited CreateParams(Params);   Params.ExStyle:=WS_EX_APPWINDOW; end; destructor TAppFrm.Destroy; begin   inherited;   // end; procedure TAppFrm.WMMenuSelect(var Msg: TWMMenuSelect); begin   inherited;   with Application do     case Msg.IDItem of       SC_MINIMIZE :Hint:='将该窗口缩小为图标。';       SC_CLOSE    :Hint:='关闭该窗口。';       SC_MAXIMIZE :Hint:='将该窗口扩大为全屏幕显示。';       SC_SIZE     :Hint:='重新调整该窗口的尺寸。';       SC_MOVE     :Hint:='移动该窗口。';       SC_RESTORE  :Hint:='将该窗口恢复为正常大小。'     else       if Msg.MenuFlag = MF_SYSMENU then         Hint:='';     end; end; procedure TAppFrm.WMSysCommand(var Msg: TWMSysCommand); begin   if Msg.CmdType=SC_MINIMIZE then     WindowState:=wsMinimized   else     inherited; end; {--------------------------------------------------------------} { TAppChildFrm } constructor TAppChildFrm.Create(AOwner: TComponent); begin   inherited;   // end; procedure TAppChildFrm.CreateParams(var Params:TCreateParams); begin   inherited CreateParams(Params);   Params.WndParent:=Application.MainForm.Handle; end; destructor TAppChildFrm.Destroy; begin   inherited;   // end; end. {----------------------以下是我的测试程序-------------------------------} procedure TForm1.Button1Click(Sender: TObject); begin   if opendialog1.Execute then   begin   //   end; end; {在Form2中别忘了要引用我的AppWnd单元} procedure TForm1.Button2Click(Sender: TObject); begin   if not Assigned(Form2) then     Form2:=TForm2.Create(self);//从我的AppChildFrm继承   try     Form2.ShowModal;   finally     Form2.Free;     Form2:=nil;   end; end; {不引用我的AppWnd单元} procedure TForm1.Button3Click(Sender: TObject); begin   if not Assigned(Form3) then     Form3:=TForm3.Create(self);//直接从TForm创建   try     Form3.ShowModal;   finally     Form3.Free;     Form3:=nil;   end; end; {千万要试了再发言,不要灌水,如果你是低手请你不要发言}

AoRoA · 2001-06-25

1：我不是高手 2：你上面的代码我没看 3：当然我也没试 4：不是灌水 5：我没选EMAIL通知 但是我可以猜一下吧： 将工程打包：project options ->packages->build with runtime package 你可以试一下

woodstock · 2001-06-25

这是handle的问题，因为OpenDialog是从TCommonDialog继承下来的， constructor TCommonDialog.Create(AOwner: TComponent); begin   inherited Create(AOwner);   FCtl3D := True;   FObjectInstance := Classes.MakeObjectInstance(MainWndProc); end; 这里没有指明Handle ,类似的，如果你用MessageDlg来显示对话框，也会出现这个问题， 但是如果用MessageBox就不会，因为你可以在MessageBox(self.Handle..)中指明对应的 handle. 解决办法： 1、对话框之类的：重新构造TCommonDialog constructor TMyCommonDialog.Create(AOwner: TComponent); begin   inherited Create(AOwner);   FCtl3D := True;   FObjectInstance := MakeObjectInstance(MainWndProc);   if AOwner is TForm then     FParentHandle := (AOwner as TForm).Handle   else     FParentHandle := 0; end; 2、对普通窗口，所以的窗口可以在下面的代码上再继承 type   TMyForm = class(TForm)   private     FParentForm : TForm;   protected     procedure CreateParams(VAR Params: TCreateParams); override;   public     property ParentForm :TForm read FParentForm write FParentForm;     constructor Create(Sender: TComponent);override;   end; constructor TMyForm.Create(Sender:TComponent); begin   if Sender is TForm then     FParentForm := Sender as TForm   else     FParentForm := nil;   inherited Create(Sender); end; procedure TMyForm.CreateParams(VAR Params: TCreateParams); begin   Inherited CreateParams(Params);   if assigned(FParentForm) then     Params.WndParent := FParentForm.Handle; end; 完了，希望对你有帮助：）

mikedeakins · 2001-06-25

我不是高手，正正经经的低手一个。不过好在这个问题也基本上属于白痴才问得出来， 我这个低手正好答一下。高手同志，窗口风格是不能自己吃饱了撑的瞎改的。给你贴 上来修改后的东东。 type   TAppFrm = class(TForm)     procedure CreateParams(var Params:TCreateParams);override;   private     procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SYSCOMMAND;     procedure WMMenuSelect(var Msg:TWMMenuSelect);message WM_MENUSELECT;   //  procedure CreateAppWnd;     { Private declarations }   public     { Public declarations }     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   end; {--------------------------------------------------------------}   TAppChildFrm = class(TForm)     procedure CreateParams(var Params:TCreateParams);override;   private     { Private declarations }   public     { Public declarations }     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   end; {--------------------------------------------------------------} implementation { TAppFrm } constructor TAppFrm.Create(AOwner: TComponent); begin   inherited; //  CreateAppWnd; end; { procedure TAppFrm.CreateAppWnd; begin   SetWindowLong(Application.Handle,GWL_EXSTYLE,         GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end;  } procedure TAppFrm.CreateParams(var Params: TCreateParams); begin   Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW;   inherited CreateParams(Params); //  Params.ExStyle:=WS_EX_APPWINDOW; end;

mikedeakins · 2001-06-25

忘记说了， 1. 给你贴的东东我试过了。 2. 这种弱智问题不必写什么高手请进、低手莫入之类的话吧？又不是什么像样的问题。

pcexplorer · 2001-06-25

To： mikedeakins TMD如过我不要风格的话何必你注释 我直接从TForm创建实例不就得了吗 To：woodstock 我也觉得是Handle问题 MessageBox就没有问题 问题是更改之前Delphi是没有这个问题的

热血 · 2001-06-26

一般情况下遇到什么低手未入的标题我都不回答

姚哥 · 2001-07-01

低手未入应改一改！！！！！

bbkxjy · 2001-07-01

你是说 TaskBar 上右击程序对应的按钮弹出来的菜单少了一些选项的问题吗？不用这么麻烦 吧，看看 Forms.pas 中 TApplication.CreateHandle 方法： procedure TApplication.CreateHandle; ... begin   ...     SysMenu := GetSystemMenu(FHandle, False);     DeleteMenu(SysMenu, SC_MAXIMIZE, MF_BYCOMAND);     DeleteMenu(SysMenu, SC_SIZE, MF_BYCOMAND);     if NewStyleControls then DeleteMenu(SysMenu, SC_MOVWE, MF_BYCOMAND);   ... end; 把这几行注释掉，再在 TApplication.WndProc 中将相应消息转发给 MainForm 就行了吧。 procedure TApplication.WndProc(var Message: TMessage); ... begin ....   with Message do    WM_SYSCOMMAND:      case WParam and $FFF0 of        ...        SC_SIZE, SC_MOVE, SC_MAXIMIZE:          if MainForm <> nil then            MainForm.WndProc(Message)          else            Default;        else          Default;   ... end;

mikedeakins · 2001-07-02

to pcexplorer, 孩子，眼睛睁大点看我给你的程序。   Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW; 这一行干什么用的？你看了吗？你自作聪明更改窗口风格，这种弱智问题居然还什么高手 莫入，直接说自己是呆子就行了。

dongwei · 2001-07-03

我现在知道了什么叫狗血淋头了

CathyEagle · 2001-07-03

http://go2.163.com/eagleboost/issues/Materials/Articles/DelphiWindow.htm 用我的土方法，很好用。

pcexplorer · 2001-07-04

To：CathyEagle 问题是占用资源而且还没有解决问题 To：mikedeakins 我不知你的意思我试了，好象有回到了原来的系统菜单， 说白了，我现在就是要实现任务栏的菜单要和主窗口的系统菜单一样该怎么办？？？ To：bbkxjy 你的方法也不行，因为系统菜单中的有些选项被禁止了 To:所有人 如果分数不够可以加！！！ 我始终觉得是Handle和Application.Handle的问题

Hexi · 2001-07-05

我想这种问题高手都懒得回答。

codes · 2001-07-06

pcexplorer · 2001-07-09

难道就没有一个人能回答吗??? 是不是因为标题还是......

bbkxjy · 2001-07-09

对于有些菜单项被禁止，除了照上面修改之外，还需要作以下修改： 1、TApplication.CreateHandle procedure TApplication.CreateHandle; ...   FHandle := CreateWindow(WindowClass.lpszClassName, PChar(FTitle),     WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU     or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SIZEBOX,     -GetSystemMetrics(SM_CXSCREEN) div 2,     -GetSystemMetrics(SM_CYSCREEN) div 2,     0, 0, 0, 0, HInstance, nil);//加上 WS_SIZEBOX 风格，设座标令窗口在屏幕之外   ... end; 2、TApplication.Minimize; procedure TApplication.Minimize; ...   if (MainForm <> nil) and (ShowMainForm or MainForm.Visible) then   begin     SetWindowPos(FHandle, MainForm.Handle, -GetSystemMetrics(SM_CXSCREEN) div 2,     -GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, SWP_SHOWWINDOW);     ...   end; ...   end; 3、TApplication.Restore; procedure TApplication.Restore; ...   if IsIconic(FHandle) then   begin     ...     SetWindowPos(FHandle, 0, -GetSystemMetrics(SM_CXSCREEN) div 2,     -GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, SWP_SHOWWINDOW);     ...   end;   ... end; 4、TApplication.UpdateVisible; proceudre TApplication.UpdateVisible;   proceudre SetVisible(Value: Boolean);   ...   begin     if ... then     begin       SetWindowPos(FHandle, 0, -GetSystemMetrics(SM_CXSCREEN) div 2,         -GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, ShowFlags[Value]);       ...     end;   end; ... begin  ... end; 主要是加上 WS_SIZEBOX 后，虽然 TApplication 窗口的 width，height 为 0, 仍然会显示 出来，隐藏不了，需要修改 x, y，令窗口在屏幕之外。

bbkxjy · 2001-07-09

对于有些菜单项被禁止，除了照上面修改之外，还需要作以下修改： 1、TApplication.CreateHandle procedure TApplication.CreateHandle; ...   FHandle := CreateWindow(WindowClass.lpszClassName, PChar(FTitle),     WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU     or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SIZEBOX,     -GetSystemMetrics(SM_CXSCREEN) div 2,     -GetSystemMetrics(SM_CYSCREEN) div 2,     0, 0, 0, 0, HInstance, nil);//加上 WS_SIZEBOX 风格，设座标令窗口在屏幕之外   ... end; 2、TApplication.Minimize; procedure TApplication.Minimize; ...   if (MainForm <> nil) and (ShowMainForm or MainForm.Visible) then   begin     SetWindowPos(FHandle, MainForm.Handle, -GetSystemMetrics(SM_CXSCREEN) div 2,     -GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, SWP_SHOWWINDOW);     ...   end; ...   end; 3、TApplication.Restore; procedure TApplication.Restore; ...   if IsIconic(FHandle) then   begin     ...     SetWindowPos(FHandle, 0, -GetSystemMetrics(SM_CXSCREEN) div 2,     -GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, SWP_SHOWWINDOW);     ...   end;   ... end; 4、TApplication.UpdateVisible; proceudre TApplication.UpdateVisible;   proceudre SetVisible(Value: Boolean);   ...   begin     if ... then     begin       SetWindowPos(FHandle, 0, -GetSystemMetrics(SM_CXSCREEN) div 2,         -GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, ShowFlags[Value]);       ...     end;   end; ... begin  ... end; 主要是加上 WS_SIZEBOX 后，虽然 TApplication 窗口的 width，height 为 0, 仍然会显示 出来，隐藏不了，需要修改 x, y，令窗口在屏幕之外。

bbkxjy · 2001-07-09

对于有些菜单项被禁止，除了照上面修改之外，还需要作以下修改： 1、TApplication.CreateHandle procedure TApplication.CreateHandle; ...   FHandle := CreateWindow(WindowClass.lpszClassName, PChar(FTitle),     WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU     or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SIZEBOX,     -GetSystemMetrics(SM_CXSCREEN) div 2,     -GetSystemMetrics(SM_CYSCREEN) div 2,     0, 0, 0, 0, HInstance, nil);//加上 WS_SIZEBOX 风格，设座标令窗口在屏幕之外   ... end; 2、TApplication.Minimize; procedure TApplication.Minimize; ...   if (MainForm <> nil) and (ShowMainForm or MainForm.Visible) then   begin     SetWindowPos(FHandle, MainForm.Handle, -GetSystemMetrics(SM_CXSCREEN) div 2,     -GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, SWP_SHOWWINDOW);     ...   end; ...   end; 3、TApplication.Restore; procedure TApplication.Restore; ...   if IsIconic(FHandle) then   begin     ...     SetWindowPos(FHandle, 0, -GetSystemMetrics(SM_CXSCREEN) div 2,     -GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, SWP_SHOWWINDOW);     ...   end;   ... end; 4、TApplication.UpdateVisible; proceudre TApplication.UpdateVisible;   proceudre SetVisible(Value: Boolean);   ...   begin     if ... then     begin       SetWindowPos(FHandle, 0, -GetSystemMetrics(SM_CXSCREEN) div 2,         -GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, ShowFlags[Value]);       ...     end;   end; ... begin  ... end; 主要是加上 WS_SIZEBOX 后，虽然 TApplication 窗口的 width，height 为 0, 仍然会显示 出来，隐藏不了，需要修改 x, y，令窗口在屏幕之外。

varphone · 2001-12-14

问题出在 TApplication 类上面！ 如果用 Win32 Api 函数来创建一个窗口的话就不会出现少了几项菜单的问题！

Borland Delphi 窗口类核心问题,请大家进入讨论！！！ (200分)

pcexplorer

Unregistered / Unconfirmed

AoRoA

Unregistered / Unconfirmed

woodstock

Unregistered / Unconfirmed

mikedeakins

Unregistered / Unconfirmed

mikedeakins

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

热血

Unregistered / Unconfirmed

姚哥

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

mikedeakins

Unregistered / Unconfirmed

dongwei

Unregistered / Unconfirmed

CathyEagle

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

Hexi

Unregistered / Unconfirmed

codes

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

varphone

Unregistered / Unconfirmed

Similar threads