社区
Delphi
帖子详情
.如何做出像东方快车,金山快译那样没有标题栏,没有最大,最小,关闭按钮,却可以随意移动,谢谢。
Monkeycn
2003-08-30 01:57:22
.如何做出像东方快车,金山快译那样没有标题栏,没有最大,最小,关闭按钮,却可以随意移动,谢谢。
...全文
38
10
打赏
收藏
.如何做出像东方快车,金山快译那样没有标题栏,没有最大,最小,关闭按钮,却可以随意移动,谢谢。
.如何做出像东方快车,金山快译那样没有标题栏,没有最大,最小,关闭按钮,却可以随意移动,谢谢。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
tjff2000
2003-08-30
打赏
举报
回复
手边刚好有一个,哈哈。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure WMNChit(var msg:TWMNChitTest);
Message WM_NChitTest;
public
procedure CreateParams(var Params:TCreateParams);override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
params.Style:=(params.Style or Ws_popup) and not ws_caption;
end;
procedure TForm1.WMNChit(var msg: TWMNChitTest);
begin
inherited;
if Msg.Result=htClient then
Msg.Result:=htCaption;
end;
end.
sailer_shi
2003-08-30
打赏
举报
回复
喂,我得代码就可以了,知道以前有一个软件叫我得助手吗
当你鼠标离开界面时,那个界面就会自动变小,这个就是那个程序其中一段代码(delphi)
给分吧
underwolf
2003-08-30
打赏
举报
回复
将form的BORDERSTYLE属性为BLNONE
然后在MOUSEDOWN事件中加入代码
代码为当鼠标按下时向WINDOWS送出标题栏被按下的消息就可以了
具体代码看一看API就知道了
fsybaby
2003-08-30
打赏
举报
回复
先设置Borderstyle
TYPE
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
........
实现部分
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited; { 调用默认的事件处理程序 }
if M.Result = htClient then M.Result := htCaption;
{如果是在Client区让Windows认为是在Caption区 }
end;
sailer_shi
2003-08-30
打赏
举报
回复
对了还要将Form的Borderstyle 设为bsnone
sailer_shi
2003-08-30
打赏
举报
回复
给你一段代码,我就是用这段代码实现你说的功能的
procedure TForm1.WMLButtonDown(var Msg:TMessage);
begin
SendMessage(Application.MainForm.Handle,WM_NCLButtonDown,HTCaption,0);
Click;
end;
procedure TForm1.CMMouseLeave(var Msg:TMessage);
begin
inherited;
if not Form1.Focused then
Form1.Width := 2
end;
你试一试
cupidvenus
2003-08-30
打赏
举报
回复
以上两位的综合起来就行了。
xiaoxiao197821
2003-08-30
打赏
举报
回复
上面两个合起来就ok了
bestluo
2003-08-30
打赏
举报
回复
修改FORM的BORDERSTYLE属性就可以了
ehom
2003-08-30
打赏
举报
回复
procedure WMHitTest (var Msg: TWMNCHitTest);message WM_NCHITTEST;
procedure TForm.WMHitTest(var Msg: TWMNCHitTest);
var
pt:TPoint;
begin
inherited;
pt:=Point(Msg.xPos,Msg.yPos);
pt:=ScreenToClient(pt);
if (Msg.result = HTCLIENT) and (pt.Y <= 25) then Msg.Result := HTCAPTION;
end;
智慧城市之智慧中台专题-如何适应大数据时代变革?
大数据搭着信息时代的快车来到了我们的面前,数据的价值逐渐为人们所重视。数据更是一种新的生产要素,大数据是下一个创新、竞争、生产力提高的前沿。国家纷纷将开发利用大数据作为夺取新一轮竞争制高点的重要抓手。...
许多代码段,没准儿有你需要的 C++ Builder
1.怎样在C++Builder中创建使用DLL 2.用C++Bulider在WIN.INI中保存信息 3.如何在C++Builder中检测硬件 4.C++Builder如何响应消息及自定义消息 5.利用C++ Builder开发动画DLL 6.用C++ Builder 3制作屏幕保护程序 7.TCP/IP头格式 8.UDP 9.判断windows的Desktop及其它目录 10用C++Builde
电脑小问题不求人
电脑小问题不求人--鼠标.软驱.打印机.硬盘.风扇.常见事故处理鼠标鼠标的故障分析与维修比较简单,大部分故障为接口或按键接触不良、断线、机械定位系统污垢等原因造成的。少数故障为鼠标内部元器件或电路虚焊造成的,这主要存在于某些劣质产品中,其中尤以发光二极管、IC电路损坏居多。 鼠标按键失灵怎么办 1、鼠标按键无动作,这可能是因为鼠标按键和电路板上的微动开关距离太远,或点击开
玩转windows XP
1、最全的windows操作系统快捷键 一、常见用法: F1 显示当前程序或者windows的帮助内容。 F2 当你选中一个文件的话,这意味着“重命名” F3 当你在桌面上的时候是打开“查找:所有文件”对话框 F10或ALT 激活当前程序的菜单栏 windows键或CTRL+ESC
计算机速查向导
Windows操作系统文件夹 - [] Tag:计算机维修 Windows操作系统文件夹 Cursors文件夹 这是鼠标指针文件夹,用来存放除系统默认之外的鼠标指针。一些美化系统桌面的程序在美化鼠标时也是将自己的鼠标指针存放在这个文件夹中的。可以将文件夹中的鼠标指针删除,对Windows系统默认的鼠标指针不会有影响。 Debug文件夹 这是系统调试文件夹,用来存放系统...
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章