各位老师好。
怎样去掉一个窗体的标量栏并且可让窗体自由移动?我试了borderstyle:=bsnone的方法,此法可去掉窗体的标量栏但不能让窗体自由移动。急需此功能,请诸位老师指点。
怎样去掉一个窗体的标量栏并且可让窗体自由移动?我试了borderstyle:=bsnone的方法,此法可去掉窗体的标量栏但不能让窗体自由移动。急需此功能,请诸位老师指点。
解决方案 »
- indy ftp的测试程序,问题出在哪里?
- 带小数部分的 十进制与二进制的转换 怎么转
- 跪求各位了!!这个问题卡了我快半年了~~~~
- 如何在dbgrid中显示查询结果?查询是多次进行的,如:输入姓名查询,查询下一个的时候希望在dbgrid中显示已查询的记录,怎么做?急 啊
- Delphi6生成的OCX控件在MyEclipse中调用无法使用Ctrl+C/V/X/Z/Y等快捷键和方向键
- 老婆生了個兒子,高興中。散分!順便求各位達人幫忙取個名字!
- 请教:如何使用自定义打印设置对话框设置打印属性。。。急呀
- createThread的参数传递问题
- 救命呀,一个关于自定公式解析的问题,救救我呀,问题解决马上给分,
- MeidaPlayer无法播放MPEG1文件
- 寻找memo中的指定内容,并显示在edit中??
- 关于DBgrid或DBgrideh翻页功能的实现(比较复杂的翻页)
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
form1.perform(WM_SysCommand, SC_DragMove, 0);
end;在鼠标按下事件里写上面的代码
type
TFmNoneTitle = class(TForm)
private
{ Private declarations }
procedure OnNcHitTest(var msg: TWmNcHitTest); message WM_NCHITTEST;
public
{ Public declarations }
end;var
FmNoneTitle: TFmNoneTitle;implementation{$R *.dfm}procedure TFmNoneTitle.OnNcHitTest(var msg: TWmNcHitTest);
begin
inherited;
if (HTClient=msg.result) then msg.result:=HTCaption;
end;
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
form1.perform(WM_SysCommand, SC_DragMove, 0);
end; 就可以了
procedure drag(var M: twmnchittest); WM_NCHITTEST;procedure TForm1.drag(var M: twmnchittest);
begin
inherited;
if m.Result = htclient then
m.result := htcaption;
end;