Blue
Red
Green
Orange
Voilet
Slate
Dark

:怎么样使点击窗口最小键,不让窗口缩小到任务栏,而象MDI的子窗口那样缩小到界面中(100分)

  • 主题发起人 zhaoxiaoxi
  • 开始时间
P

plwei

Unregistered / Unconfirmed
GUEST, unregistred user!
只要将窗口的formstyle设为fsstayontop即可
 
D

djdsz

Unregistered / Unconfirmed
GUEST, unregistred user!
不行的啊,我刚才试了。

可以这样做(代码)

unit Main;

interface

uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus;

type
TMainForm = class(TForm)
private
procedure wmmini(var msg:TWMSysCommand);message wm_syscommand;
end;

var
MainForm: TMainForm;

implementation

{$R *.DFM}

{ TMainForm }

procedure TMainForm.wmmini(var msg: TWMSysCommand);
begin
if msg.CmdType=SC_MINIMIZE then
begin
width:=70;
height:=0;
left:=0;
top:=screen.Height-30;
end
else
inherited;
end;

end.
 

宝祯

Unregistered / Unconfirmed
GUEST, unregistred user!
将第二个窗体的align==>alClient formstyle==>fsstayontop
试一试.
 
R

redsky.l

Unregistered / Unconfirmed
GUEST, unregistred user!
你为什么要这么做呢??? 点解!
当年为了避免出现这种情况,想得头都大了
这都好象是个BUG哦(D1~D6),对以下源程序将出现的任何问题,本人不付任何责任。

做法:
1、form不用作任何设置,当然做任何设置也行。
2、建两个Form, Form1加个铵钮,Form1的按钮事件如下:

form1.hide;
form2.show;
3、运行。

看看Form2最小化时,不会吧。真的出现你说的这种情况也。我想让它在任务栏还不行!
 
W

wjiachun

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
535
import
I
I
回复
0
查看
541
import
I
I
回复
0
查看
522
import
I
顶部 底部