社区
Delphi
帖子详情
送分题
ypyRock
2002-04-15 03:49:06
一个FORM不要标题栏(上面蓝色的条)但又可以改变大小,怎么实现?
将FORM的BorderStyle设为bsNone可以去掉标题栏,但也不能改变大小了:(
...全文
37
10
打赏
收藏
微信扫一扫
点击复制链接
分享
下载分享明细
分享
举报
写回复
10 条
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ypyRock
2002-04-16
zSWANg(伴水)(* pascal→c *) :
你的方法好像有繁琐,鼠标形状怎么改变??
FlyingQQ(FlyingQQ):
能不能再讲详细点??
打赏
举报
回复
赞
ypyRock
2002-04-16
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分你
打赏
举报
回复
赞
xpony
2002-04-15
你用
procedure CreateParams(var Params: TCreateParams); override;
试试
参数 Params 具体怎么设置 我忘记了:(
打赏
举报
回复
赞
zx_wang
2002-04-15
我有一个相当简单的办法,前提是你把50分给我
打赏
举报
回复
赞
jholdnew
2002-04-15
d5开发指南
此书中正好有此实例,有很妙的方法
打赏
举报
回复
赞
zx_wang
2002-04-15
我有一个相当简单的办法,前提是你把100分给我
打赏
举报
回复
赞
FlyingQQ
2002-04-15
让form的大小设置属性动态的接受设置!你试试,我不知道是否可行!
打赏
举报
回复
赞
FlyingQQ
2002-04-15
在程序中动态设置啊,
打赏
举报
回复
赞
lovewangj
2002-04-15
???
打赏
举报
回复
赞
王集鹄
2002-04-15
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.
打赏
举报
回复
赞
相关推荐
杨老师6班测试
送
分题
杨老师6班测试
送
分题
描述 【题目描述】 输入n,输出一个n*n的正方形,正方形由符号c1和c2组成,正方形的四条边和对角线由c1组成,其余部分由c2组成。 输入 一行一个整数,两个符号,分别以一个空格隔开。 输出 如...
蓝桥杯
送
分啦(奇葩题,还真是
送
分的)
算法训练
送
分啦 时间限制:1.0s 内存限制:512.0MB 问题描述 这题想得分吗?想,请输出“yes”;不想,请输出“no”。 输出格式 输出包括一行,为“yes”或“no”。 #...
[CTF学习] 攻防世界进阶区学习,1
分题
+ 2
分题
攻防世界进阶区1
分题
+2
分题
(部分)
201203A Theory of Rational Jurisprudence.pdf
201203A Theory of Rational Jurisprudence.pdf
springboot+vue大学生健康管理源码.zip
springboot+vue大学生健康管理源码.zip
发帖
Delphi
加入
微信扫一扫
点击复制链接
分享社区
下载分享明细
5091
社区成员
26.2w+
社区内容
Delphi 开发及应用
社区管理员
申请成为版主
帖子事件
创建了帖子
2002-04-15 03:49
社区公告
暂无公告