捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
不修改forms.pas单元就可以去掉MDI窗口的滚动条
关键字:MDI 滚动条 去掉MDI窗口的滚动条
来 自:原创
平 台:Win2k/XP/NT,Win2003 下载所需:0 火柴
深浅度:初级 完成时间:2009/6/12
发布者:lovearvin 发布时间:2009/6/12
编辑器:DELPHI7 语  种:简体中文
分 类:窗体 下载浏览:445/10877
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
---无下载
关于如何去掉MDI主窗体的滚动条的方法,很多都是去修改forms.pas单元,可以达到这样的效果,但是发现一个问题,我的项目是用BPL模式开发的,这样的话去修改forms.pas单元就没有作用了,于是上网找了很久,发现有一部份代码可以在不修改pas的源码情况下去掉MDI主窗体的滚动条,现发到盒子上,以便以后方便查找.

在MDI主窗体中如下代码:

Function ClientWindowProc( wnd: HWND; msg: Cardinal; wparam, lparam: Integer ): Integer; stdcall; 
Var 
 pUserdata: Pointer; 
Begin 
 pUserdata:= Pointer( GetWindowLong( wnd, GWL_USERDATA )); 
 Case msg of 
   WM_NCCALCSIZE: Begin 
       If (GetWindowLong( wnd, GWL_STYLE ) and (WS_HSCROLL or WS_VSCROLL)) <> 0 Then
         SetWindowLong( wnd, GWL_STYLE, GetWindowLong(wnd, GWL_STYLE) and not (WS_HSCROLL or WS_VSCROLL)); 
     End; 
 End; 
 Result := CallWindowProc(pUserdata, wnd, msg, wparam, lparam ); 
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 //  ShowScrollBar(mainform.clienthandle, SB_BOTH, false ); 
 If ClientHandle <> 0 Then Begin
   If GetWindowLong( ClientHandle, GWL_USERDATA ) <> 0 Then Exit; 

   // 加上回调句柄 
   SetWindowLong( ClientHandle, GWL_USERDATA, SetWindowLong( ClientHandle, GWL_WNDPROC, integer( @ClientWindowProc))); 
 End;
end;
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论6条 当前显示最后6条评论
yunwang 2009/6/17 13:04:33
[DCC Error]  Undeclared identifier: 'ClientWindowProc'
kwbin 2009/6/19 15:27:05
恩人啊,让我找得好辛苦
wiseinfo 2009/7/11 18:01:12
好似这个滚动条不碍事吧。
ccdos 2009/9/25 11:10:48
某些情况下确实不需要滚动条
GirlxXxVap 2016/4/26 0:14:01
Anyone who's looking for a fashion to fulfill other people can accomplish that once they appearance up adult personals online. In addition to coming across pictures and counsel, they also can take element in grownup chat on these grownup oriented courting websites. Adult chat is the good way to ruin the ice in case you're on an adult relationship web site. If you are are looking for grownup personals so that you just can meet an wonderful for a fling, you prefer to start off by browsing at the grownup personals after which with adult chat. This will make it easier and extra cozy for you. Many adults from throughout the globe are courting online on the second. There are tens of millions of courting websites which are for all kinds of group. Some people, having said that, aren't are shopping for relationship. They appearance via grownup personals as a way in discovering a person for an off-the-cuff fling that is barely for fun. Many humans enjoy collaborating in adult chat right at domestic so that they're in a position to rejoice. ome everybody is too slowed down with careers and other commitments that avoid them from arising a lengthy time period relationship with an uncommon else. But this does not mean that they can't have a bit little bit of human comfort each time they're in a place to. Adult personals are an honest way to fulfill a person. You can take a look at their photographs and see if they are a consumer with whom you'll love to chat and even meet. You can initiate grownup chat with them and see in the event that they like the exact things that you just revel in. You can interact in adult chat with as many individuals as you like there are not any guidelines on relationship websites that cater to the free vigorous varieties who are simply are searching for a bit of fun. Just as is the case with grownup personals on various dating sites, if you're planning on becoming a member of a web page, you'll like to publish a latest picture of your self. If you propose to fulfill an extraordinary off line and submit a photograph of your self from two many years ago or not even of you, they shall be [url=http://sexcam-live.co]Sexcam[/url] very disenchanted when assembly you and this could extremely ruin your encounter. Adult personals can be anonymous but most people love to see a photograph of whoever they're speaking to or meeting just before time. Those who're virtually the most purposeful at making grownup contacts and attractive in grownup chat are folks that have photos of themselves on their profile. You must nevertheless not put down any non-public statistics corresponding to the place you reside or your real name in case you occur to use grownup personals. You can use a username just so others gets to understand you by this call in case you go on grownup chat. You still are looking to stay safe, even whilst finishing up casual encounters. You can have a respectable time with anyone who you meet on grownup personals but you nevertheless like to be certain which you successfully provide insurance policy to your identity and protection. Start out with grownup chat and see the place it takes you. Chances are that there may be many grownup personals which could attract you. You may simply make informal friends and a list of sex contacts by fitting a member of internet sites which are for adults and encourage grownup chat.
Ladyciple 2016/10/18 15:30:53
Hi, 
na wie gehts allen? bin neu hier jungs *g*hat jemand lust ein treffen  hm? 
mchte sex ;) [url=http://huren.blogsexgratis.com]Teen!..[/url] 
 
[url=http://www.innocentstore.cz/blog/3101-2/]Sex Treffen[/url]
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表