怎么去掉窗口的标题栏?怎么去掉窗口的标题栏?
解决方案 »
- 如何把MSDN里的代码转换成DELPHI中的代码
- 视图中加了触发器,但是delphi程序中执行更新时,却没有执行触发器?
- 请问哪里有最新的Delphi7补丁下载?
- 如何解决项目移到其它地方后不能正常运行?
- 怎样在procedure中传值与传地址
- 一个可以使windows2000 , win98 , winnt 关机的程序怎样写
- delphi如何把excel表导入sql server里面???
- TREEVIEW如何动态的加入字节点和父节点,或者从一个表中导入一列字段??指教!
- 为什么quickreport中band设置frame(bottom,top)后表中的横线有粗有细,没有规律?
- 各位兄弟,小弟的幸福拜托你们了,帮我出出主意吧!
- 动态创建的控件,如何把事件写在一个公共的unit里面?
- 急!如何预览和打印stringgrid里的内容,能够支持分页
procedure WndProc(var msg : TMessage);override;
end;var
Form1: TForm1;implementation
{$R *.DFM}
procedure TForm1.WndProc(var msg : TMessage);
begin
if msg.Msg = WM_NCLBUTTONDOWN then
begin
if msg.WParam <> HTCLOSE then
begin
exit;
end;
end;
inherited WndProc(msg);
end;
begin
borderstyle:=bsSizeable;
setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);
clientheight:=height;
end;
begin
borderstyle:=bsnone;
self.Left:= 0;
self.Top:= 0;
self.Width:= screen.Width;
self.Height:= screen.Height - 25;
end;
begin
borderstyle:=bsSizeable;
setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);
clientheight:=height;
end;
我初始化的时候就把窗口最大化,用了你这个方法,可还是把工具栏挡住 了