唉,搜不到,只好麻烦大家乐,怎样不让.Show出的窗体最小化。(30分)

  • 主题发起人 主题发起人 hhhappy
  • 开始时间 开始时间
H

hhhappy

Unregistered / Unconfirmed
GUEST, unregistred user!
也即主窗体在最小化时,其它窗体也最小化,怎样才能不这样呢?
 
BORDERICONS.BIMINIMIZE:=FALSE;
 
用form1.windowstate:=wsminimized;不会出现这种情况啊
 
在该窗体的的create中将Handle设为nil而不是Application.handle就行了!
 
unit Unit2;

interface

uses
; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
; TForm2 = class(TForm)
; private
; ; { Private declarations }
; ; procedure CreateParams(var Params: TCreateParams); Override;
; public
; ; { Public declarations }
; end;

var
; Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.CreateParams(var Params:TCreateParams);
begin
;inherited;
;with Params do
;begin
; Style:=Params.Style xor WS_DLGFRAME;
; WndParent:=0;
;end;
end;


end.
 
谢谢各位,我试试先。
 
在显示之前将FORM的属性WINDOWSTATE设为wsMinimized即可.
 
谢谢各位,问题解决了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
729
import
I
I
回复
0
查看
601
import
I
后退
顶部