怎么去掉窗体标题栏右键弹出的系统菜单。 怎么去掉窗体标题栏右键弹出的系统菜单。窗体必须是普通窗体不能是无标题窗体。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 setwindowlong(hwnd,gwl_style,getwindowlong(hwnd,gwl_style)or not ws_sysmenu)hwnd是窗口句柄 窗体BorderIcons下四个属性全部设为false 确切的问题是加载VCLSkin控件,在标题栏击两下右键,窗体自动关闭。我用的VCLSkin是VCL2.68.9.07。 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); private procedure MyProcedure(var Msg: TMsg; var Handled: Boolean); { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.MyProcedure(var Msg: TMsg; var Handled: Boolean); begin if msg.message=WM_RBUTTONDOWN then msg.message:=WM_NULL; end; procedure TForm1.FormCreate(Sender: TObject); begin application.OnMessage:=MyProcedure; end; end. 更可笑的是,自带的DEMO没这个问题,我以为是我的皮肤文件有问题,把原皮肤拿过来测试也退出,把自己的皮肤拿到DEMO测试也没问题。 果然是VCL的问题,找到这个。 -History News in 4.30 9/7/2006 *Fix Caption problem in bidiRighttoLeft form. 求思路 devexpress 控件 delphi 中有类似MFC中的CFileDialog吗? 如何得到共享文件的本地位置 delphi 如何使用ADO 创建SQL SERVER 数据库 怎么判断oracle里面的图片是什么格式的(bmp jpeg的两种)?并且如何动态取得里面的图片内容并显示出来? 我想认识大家啊,可以留下QQ让我加吗? ????怎么搞定????我在窗体外单击一下,窗体仍然具有焦点? 系统分析 关于简单的delphi问题 HELP ADO连接EXCLE的问题 急死人了 。。。。。。。。。。。。。。解决了 马上给分 嫌少再加 怎样使对象的数据保存到数据库里面才合理
hwnd是窗口句柄
我用的VCLSkin是VCL2.68.9.07。
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
procedure MyProcedure(var Msg: TMsg; var Handled: Boolean);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.MyProcedure(var Msg: TMsg; var Handled: Boolean);
begin
if msg.message=WM_RBUTTONDOWN then
msg.message:=WM_NULL;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage:=MyProcedure;
end;
end.
-History
News in 4.30 9/7/2006
*Fix Caption problem in bidiRighttoLeft form.