各位老师好。
怎样去掉一个窗体的标量栏并且可让窗体自由移动?我试了borderstyle:=bsnone的方法,此法可去掉窗体的标量栏但不能让窗体自由移动。急需此功能,请诸位老师指点。
怎样去掉一个窗体的标量栏并且可让窗体自由移动?我试了borderstyle:=bsnone的方法,此法可去掉窗体的标量栏但不能让窗体自由移动。急需此功能,请诸位老师指点。
解决方案 »
- reportbuilder 金额大写问题
- 请教:TWebBrowser打开网页(网页中都是文字)时如何自动定位到某一位置?
- 怎么样取得我点击dbgrid时选取某一条纪录这个纪录的行值,就是第多少条纪录
- 请问Combobox里怎么把TreeView放进去?我看到有些软件都有这个东东!!!
- 求助image装入图片文件后,该文件不能进行任何操作的问题。
- 我还在上班!!!!!!回答+UP+GZ…………》多了个三角!顺祝各位csdn上兄弟新年快乐!!散分!@
- 别人的源程序要怎么看才能快速掌握它的编程思路!
- 如何判断字符串特定字符个数?
- 介绍点方法!
- 三层服务器在Internet上如何屏蔽非法用户?(SOS!200分!)
- 寻找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;