请问如何更改窗体的标题栏和最大化/最小化/关闭按钮啊？

Question

Form.WindowState := wsMaximized;//wsMinimized
拖动窗体，可以这样，
   procedure WMncHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;procedure TForm1.WMncHitTest(var Msg: TWMNCHitTest);
begin
  Msg.Result := HTCAPTION;
end;

Answer 1

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Form1.WindowState := wsMaximized;最大化
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.WindowState := wsMinimized;最小化
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.WindowState := wsNormal;;回复
end;

Answer 2

能不能推荐一点好的，我想做xp样式的，要全部是xp的，xpmenu不行

Answer 3

chechy(chechy)：你的拖动代码同不过编译 :(

Answer 4

上面得声明需要放倒类中去。再有需要uses Messages单元。

Answer 5

现在编译通过了，我是设置form.borderstyle=bsNone，然后放置一align=top的panal做为标题栏，但无法拖动 :~~(

Answer 6

这段代码对于Form没有问题，对于Panel就有问题了。

Answer 7

多，我试过了，那请教如何用Panel拖动窗体呢？

Answer 8

哈哈，解决了，在panel的mousedown中
ReleaseCapture;
SendMessage(handle, $00A1, HTCAPTION, 0);多谢大家