社区
Delphi
帖子详情
帮忙!@!!!!!答对者有分!!!!!!!!!!
WJY2003
2003-08-22 09:49:35
我想找一段窗体标题栏的移动代码>???能移动窗体的代码.
如何写呀????
给我一个例子!!!谁有?!
在线等!!!!!!!!!!!
...全文
67
10
打赏
收藏
帮忙!@!!!!!答对者有分!!!!!!!!!!
我想找一段窗体标题栏的移动代码>???能移动窗体的代码. 如何写呀???? 给我一个例子!!!谁有?! 在线等!!!!!!!!!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
FrameSniper
2003-08-22
打赏
举报
回复
移动窗体?啥意思啊.............?
WJY2003
2003-08-22
打赏
举报
回复
要移动窗体!
tonylk
2003-08-22
打赏
举报
回复
procedure TMainForm.imgTitleMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then begin
ReleaseCapture();
Perform(WM_SYSCOMMAND,$F012,0);
end;
end;
IORILI
2003-08-22
打赏
举报
回复
在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;
myadvice
2003-08-22
打赏
举报
回复
不知你所讲的是要移动窗体还是要移动标题栏的文字又或是两个都要移动
如果是移动文字的话比较简单,许多网页上都有javascript源代码,换成Delphi的Object Pascal
版即可以了
要移动窗体的话要复杂一点,可以通过窗体的位置又或是模拟鼠标拖动(用消息实现)
WJY2003
2003-08-22
打赏
举报
回复
没有人在吗?????
WJY2003
2003-08-22
打赏
举报
回复
好我试试
周一结账
祝大家周未愉快!!!!!!!!!
ExSystem
2003-08-22
打赏
举报
回复
然后把form改成img??试试,呵呵!
ExSystem
2003-08-22
打赏
举报
回复
可以使用一个巧妙的方法来实现将鼠标放置在窗体上按下就可拖动窗体,下面先看实现代码。在Form1的“Private”部分声明过程:
在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;
上面的关键代码虽然只有两行,但它实现了鼠标直接拖动窗体的目的。代码的原理是利用窗体的WM_NCHITTEST消息,这个消息是当光标移动、鼠标按下或释放时发生的,当程序检测到鼠标在窗体中按下的消息后(消息的值为htClient),将鼠标在标题栏上按下时产生的消息(值为htCaption)传递出去,这样就巧妙的欺骗程序认为是标题栏被按下,当然就可拖动窗体了。
WJY2003
2003-08-22
打赏
举报
回复
有点问题我也搞不懂应不应该这样做吧
我是想美化一个窗体啦
所以做了一图片,就像瑞星杀毒软件的那个界面一样.
我要整体换掉一个界面,用我做的那个窗体界面.那么原来的那个window窗体的标题栏我就把form的borderstyle设为bsnone那么再显示时,这个窗体的标题就没有了,当然这个窗体就没法移动了吧?我做的这个图片里面有这个相当于那个标题的东西,我全是用制图工具做的啦.我如何把我图上的那个标题栏设为窗体的标题栏,用户可以通过它而移动窗体呢???
或者说我的想法就是错的.那么我应如何做????
大河抽奖盲盒运营版1.0.9(内置流量主)+源码全开源带后台
将想要的盒子发给好友让好友
帮忙
砍价,满人数自动通知发起者免费开盒。 11.
分
销系统(开发中) 不超过3级的
分
销系统,用户推广给好友,好友在应用内消费可获得收益。 12.配合线上线下的多商家系统(设计...
我在CSDN参与的3000个帖子
2:100
分
急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手
帮忙
! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,...
#求救信#帮
帮忙
!
我是一个C语言初学者,现在遇到一个问题有待解决。具体要求如下:C语言课程设计任务书9 题目:计算机辅助教学(CAI)软件开发:教小学生学算术。 功能:可做个位数,十位数的加,减,乘和除,减法不能得负数,除法...
题解 | #质检员的烦恼#写了一天,还是时间复杂度太高,真的心累。求高手改!!!
投递可免简历筛~ #金三银四,你有感觉到吗#【集结未来创造者,挑战3年100万年薪!安克创新2024届全球校园招聘等你 科锐国际2024年校园招聘(OD项目组- 科锐国际2024年校园招聘(OD项目组--计算机专场)[企业简介]科锐...
个人网络防范,2024年最新网络安全面试题2024答案
还有兄弟不知道网络安全面试可以提前刷题吗?费时一周整理的160+网络安全...如果你能
答对
70%,找一个安全工作,问题不大。对于有1-3年工作经验,想要跳槽的朋友来说,也是很好的温习资料!【完整版领取方式在文末!!
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章