我用一个form1 show出一个form2,但form1最小化之后,form2也跟着最小化了,我不想让form2最小化,要怎么做呢?请教各位大虾,谢拉~~呵呵~~
解决方案 »
- 低级问题,动态创建panel 释放时 是否需要释放panel上动态创建的东西?
- dxTreeList中的TdxTreeListCheckColumn怎么使用?
- 线程占用CPU100%的问题
- 请问怎样在程序中禁用Windows的各个热键?
- self,owner和parent的问题,manco cantu的这个createC程序
- 问个小问题
- 如何屏闭光标键或其它键
- 怎样在DELPHI 5.0 (代码)中入SQL语句.
- 如何在一个应用程序里生成另一个可执行文件,并保存到指定的位置?
- datset太大,如何在dbgrid中分批显示(急)!!!
- 寻求使用delphi进行web+Oracle的开发?
- 就是隐藏不了qq的登陆窗口,有哪位高手请赐教,在下感激不进
TForm1 = class(TForm)
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
Unit2.Form2.Show;
end;procedure TForm1.WMSysCommand(var Msg: TMessage);
begin
//
case Msg.WParam of
SC_MINIMIZE:
begin
showmessage('Min');
form2.Show;
//inherited;
end;
else
inherited;
end;
end;end.
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, HsCtrls;type
TForm1 = class(TForm)
HsBitBtn1: THsBitBtn;
procedure HsBitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure OnMinimize(Sender : TObject);
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
uses unit2;{$R *.DFM}procedure TForm1.HsBitBtn1Click(Sender: TObject);
begin
if form2 <> nil then form2 := Tform2.Create(Application);
form2.Show;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize := OnMinimize;
end;procedure TForm1.OnMinimize(Sender: TObject);
begin
ShowWindow(form2.Handle, SW_Show);
end;end.