form右上角按钮的问题！！！(40分)

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #1

当我们用form2.showmodal时，form2出现form1此时不可用，当按form右上角的最小化按钮时，只是form2最小化，form1还在屏幕上，请问该如何避免这种情况？
此时按关闭按钮时form2消失而form1还在，请问该如何避免这种情况？

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-18

• #2

这是正常情况，你想实现什么效果？

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-19

• #3

我想实现用showmodal后按最小化按钮时，form全最小化，按退出时，form全关

 

K

kenny.hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-19

• #4

我想可以用实现showmodal效果
procedure TForm1.Button1Click(Sender: TObject);
begin
enablewindow(handle,false);//窗口一不可用
form2.show;

end;

FORM2最小化时
enablewindow(form1.handle,true);
并对其控制

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-19

• #5

我说的按钮是指form右上角的那三个

 

K

kenny.hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-19

• #6

//截获FORM2的最小化消息呀
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) then
.....
end;

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-19

• #7

哦，那关闭呢？

 

行

行素

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-19

• #8

不是一样么？

 

K

kenny.hu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-19

• #9

关闭就在ONCLOSE或ONHIDE里写就可以了吧

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-03

• #10

谢谢！