送分题

[ypyRock]

一个FORM不要标题栏（上面蓝色的条）但又可以改变大小，怎么实现？
将FORM的BorderStyle设为bsNone可以去掉标题栏，但也不能改变大小了：（

[王集鹄]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMNCHITTEST(var Msg : TWMNCHITTEST); message WM_NCHITTEST;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
const
cOffset = 10;
var
vPoint: TPoint;
begin
inherited;
vPoint := ScreenToClient(Point(Msg.XPos, Msg.YPos));
if PtInRect(Rect(0, 0, cOffset, cOffset),vPoint) then
Msg.Result := HTTOPLEFT
else if PtInRect(Rect(Width - cOffset, Height - cOffset, Width, Height), vPoint) then
Msg.Result := HTBOTTOMRIGHT
else if PtInRect(Rect(Width - cOffset, 0, Width, cOffset), vPoint) then
Msg.Result := HTTOPRIGHT
else if PtInRect(Rect(0, Height - cOffset, cOffset, Height), vPoint) then
Msg.Result := HTBOTTOMLEFT
else if PtInRect(Rect(cOffset, 0, Width - cOffset, cOffset), vPoint) then
Msg.Result := HTTOP
else if PtInRect(Rect(0, cOffset, cOffset, Height - cOffset), vPoint) then
Msg.Result := HTLEFT
else if PtInRect(Rect(Width - cOffset, cOffset, Width, Height - cOffset), vPoint) then
Msg.Result := HTRIGHT
else if PtInRect(Rect(cOffset, Height - cOffset, Width - cOffset, Height), vPoint) then
Msg.Result := HTBOTTOM;
end;

end.

• 打赏
• 举报

回复 赞

[lovewangj]

???

• 打赏
• 举报

回复 赞

[FlyingQQ]

在程序中动态设置啊，

• 打赏
• 举报

回复 赞

[FlyingQQ]

让form的大小设置属性动态的接受设置！你试试，我不知道是否可行！

• 打赏
• 举报

回复 赞

[zx_wang]

我有一个相当简单的办法，前提是你把100分给我

• 打赏
• 举报

回复 赞

[jholdnew]

d5开发指南
此书中正好有此实例，有很妙的方法

• 打赏
• 举报

回复 赞

[zx_wang]

我有一个相当简单的办法，前提是你把50分给我

• 打赏
• 举报

回复 赞

[xpony]

你用
procedure CreateParams(var Params: TCreateParams); override;
试试
参数 Params　具体怎么设置　我忘记了:(

• 打赏
• 举报

回复 赞

[ypyRock]

zx_wang(wzx) :
你是用这个吗？
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
Style :=Style and (not WS_CAPTION);
Style :=Style or WS_POPUP;
end
end;


如果是其他的，我给100分你

• 打赏
• 举报

回复 赞

[ypyRock]

zSWANg(伴水)(* pascal→c *) ：
你的方法好像有繁琐，鼠标形状怎么改变？？

FlyingQQ(FlyingQQ)：
能不能再讲详细点？？

• 打赏
• 举报

回复 赞