社区
Delphi
帖子详情
送分题
ypyRock
2002-04-15 03:49:06
一个FORM不要标题栏(上面蓝色的条)但又可以改变大小,怎么实现?
将FORM的BorderStyle设为bsNone可以去掉标题栏,但也不能改变大小了:(
...全文
83
10
打赏
收藏
送分题
一个FORM不要标题栏(上面蓝色的条)但又可以改变大小,怎么实现? 将FORM的BorderStyle设为bsNone可以去掉标题栏,但也不能改变大小了:(
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
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.
软件工程师学习笔记大全(C++ JAVA)
JAVA,C++软件工程师学习的笔记(多),包括:C++.docCore Java笔记MS Word版.docCoreJavaNoteBook.docEJB笔记.docHibernate.docJDBC.docJSP笔记.docServlet.docSpring笔记.docStruts.doc
送
:部分面试题答案.doc
毕业设计ASP.NET三层架构鲜花商城系统完整实录
本套课程是基于ASP.NET三层架构的鲜花商城系统,课程共70个课时,课程从最初的业务需求入手,一步步将整个系统的设计过程进行实现,课程包括整个制作过程的完整录像。 该系统功能主要包括鲜花分类管理、鲜花管理...
杨老师6班测试
送
分题
杨老师6班测试
送
分题
描述 【题目描述】 输入n,输出一个n*n的正方形,正方形由符号c1和c2组成,正方形的四条边和对角线由c1组成,其余部分由c2组成。 输入 一行一个整数,两个符号,分别以一个空格隔开。 输出 如题所述的正方形。 样例输入 10 X O 样例输出 XXXXXXXXXX XXOOOOOOXX XOXOOOOXOX XOOXOOXOOX XOOOXXOOOX XOOOXXOOOX XOOXOOXOOX XOXOOOOXOX XXOOOOOOXX XXXXXXXXXX 在这里插入代码片 #
牛客练习赛22 A 有趣的题 B
送
分题
链接:https://www.nowcoder.com/acm/contest/132/A来源:牛客网题目描述 给6个火柴棍,问能不能拼成“熊”或者“象” “熊”:4根棍子长度一样,另外2根棍子长度不一样 “象”:4根棍子长度一样,另外2根棍子长度一样。 如果可以拼出熊,输出“Bear” 如果可以...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章