每个小问题25分：Form的BorderStyle设为bsNone后，如何自己实现最大化、最小化、移动及随意拖拽大小？

Question

procedure TForm1.Button3Click(Sender: TObject);
begin
  WindowState := wsMaximized;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  WindowState := wsNormal;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  WindowState := wsMinimized;end;

Answer 1

form1.WindowState:=wsMaximized  //最大化
form1.WindowState :=wsMinimized  //最小化

Answer 2

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, $F012, 0);
  end;end;用标签拖动窗体//这下是我的了吧

Answer 3

最大化:Perform(WM_SYSCOMMAND,SC_MAXIMIZE,0);
最小话:Perform(WM_SYSCOMMAND,SC_MINIMIZE,0);
移动
在private部分加入下列代码：
procedure wmnchittest(var msg:twmnchittest);
message wm_nchittest;
在程序部分加入以下代码：
procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;
随意拖拽大小（待会在发给你好了）

Answer 4

chechy(我爱洁洁) is right!

Answer 5

实现无标题移动:
申明:
procedure WMNCHitTest(var m: TWMNCHitTest);message WM_NCHitTest;实现部分:procedure TForm1.WMNCHitTest(var m: TWMNCHitTest);
begin
  inherited;
  if m.Result = htclient then
    m.Result := htCaption;
end;

Answer 6

通过鼠标拉大拉小还没解决。
csdn上以前有追加分标签，怎么现在没见？因为我要追加问仪个问题：
bsNone后，run时四周和windows 融合了，怎么使它有个突起的边线？
一定要bsNone下。
另外，感谢： chechy(我爱洁洁) (  ) 、 liminyes() (  ) 、zx_wang(wzx) (  ) ，等问题全部解决，分我一定送上，虽然斑竹说分没有实质性意义。

Answer 7

upresult:= chechy(我爱洁洁) +  rover0(蓝色步行者)

Answer 8

to： liminyes() 
    你的Perform(WM_SYSCOMMAND, $F012, 0); 一句中$F012这个直何而来？
我记得是wParam参数，搞不清它的意义，请指点。
  
 
to:  rover0(蓝色步行者) 
用你的方法后，运行时Form向被锁住一样，除了能移动外，其他什么都失效，为何？
 WM_NCHitTest消息常量时系统已定义好了的吗？

Answer 9

to sayyousayme(一点通) 
实在对不起，不是我不说，是我也不知道，这是我拿来当控件用的一段代码：（，
这是别人写的！
要知道我从VB转过来还没多久啊！

Answer 10

to zx_wang(wzx) :
您怎么还没发贴给我呀？

Answer 11

代码如下：
最大化：perform(wm_syscommand,sc_maximize,0);
最小化：perform(wm_syscommand,sc_minimize,0);
移动：formmove事件
      releasecapture;
      perform(wm_syscommand,sc_move=1,0);

Answer 12

单纯用赋值 只能最小化在桌面上 通常是左下角而不是任务栏上. 同意用Perform(;;).

Answer 13

sayyousayme(一点通)你好！
昨天由于太晚，现在我已经全部解决（加上我昨天回答你的）
procedure TForm1.CreateParams(var Param: TCreateParams);
begin
  inherited;
  Param.Style := Param.Style +  WS_THICKFRAME;
end;

Answer 14

zx_wang(wzx) (  ) 你好！
你上面的代码我加上去，没有变化啊，还是不能用鼠标拉大拉小、边界凸起，怎么办？

Answer 15

protected
   procedure CreateParams(var Param: TCreateParams);override;
   procedure WMNCHitTest(var m: TWMNCHitTest);message WM_NCHitTest;implements 
最大化:Perform(WM_SYSCOMMAND,SC_MAXIMIZE,0);
最小话:Perform(WM_SYSCOMMAND,SC_MINIMIZE,0); procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;procedure TForm1.CreateParams(var Param: TCreateParams);
begin
  inherited;
  Param.Style := Param.Style +  WS_THICKFRAME;
end;