简单问题(送100分)

Question

1:我软件启动后 是全屏显示的  为什么我双击最上面的那条边 软件会缩小?  我不要让他缩小 
2:软件最小化后 会缩在"开始" 上面 什么情况啊

Answer 1

像QQ的登陆框啊    UP

Answer 2

1、将bordericons中的bimaxinize设为false;
2、你的窗口formstyle属性为fsMDIChild？

Answer 3

1. 屏蔽窗体的61730和61728两个消息就行了。例如：
unit Unit1;interfaceuses
  Windows, Messages, Classes, Controls, Forms;type
  TForm1 = class(TForm)
    //......
  private
    procedure WMSysCommand(var Message: TWMSysCommand);  message WM_SYSCOMMAND;
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  case Message.CmdType of
    61730, SC_RESTORE: ;
    else inherited;
  end;
end;

Answer 4

可以取消窗體的最小化選項，當然也可以通過截獲 WM_SYScommand  中最小化的消息來處理。
第2個問題，應該你的是MDI窗體吧。這個沒什麼辦法，可以在主窗體下面放下Align = alCustom 的PANEL或其它來擋住。

Answer 5

将form的borderstyle设为single，而不是sizeable

Answer 6

可以把窗体最小化设为false，即biminimize设为false

Answer 7

双击标题拦消息怎么写?  比如双击标题拦后 showmessage('双击');
 

Answer 8

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls,IniFiles;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WM_Title(var msg:TMessage);message WM_NCLBUTTONDBLCLK;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WM_Title(var msg: TMessage);
begin
  Exit;//拦截后,使得双击无效
end;end.

Answer 9

  case Message.CmdType of
    61730, SC_RESTORE:ShowMessage('双击') ;
    else inherited;
  end;