当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi使用三则

Delphi
在线播放器DIY
关于VisiBroker For Delphi的使用（3）
关于VisiBroker For Delphi的使用（2）
关于VisiBroker For Delphi的使用（1）
Delphi的两个实用技巧(2)巧用Windows的API函数
Delphi的两个实用技巧(1)播放Flash
delphi学习:两种方法使用xml文档
Delphi与Word之间的融合技术
Delphi中动态链接库(DLL)的建立和使用
Delphi基础:Window 消息大全使用详解下
Delphi基础:Window 消息大全使用详解上
教你在DELPHI中如何调用系统对话框
Delphi开发单机瘦小数据库程序要点
用Delphi + DirectX开发简单RPG游戏
Delphi7从入门到精通之认识Delphi编辑器
Delphi7从入门到精通之历数Delphi七个版本
Delphi学习:图像放大漫游攻略
用编程来实现24小时制到12小时制的转换
一个实际的OLE服务器的开发
Delphi一点通:如何将源代码学好

No. « 8 9 10 11 »

技术文章搜索

关键字

Delphi使用三则

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 62 ::
收藏到网摘: n/a

 

　　隐藏和显示Windows的任务条
　　如果隐藏和显示Windows的任务条，仅仅调用以下的函数就可以：
　　procedure hideTaskbar; //隐藏
　　var
　　wndHandle : THandle;
　　wndClass : array[0..50] of Char;
　　begin
　　StrPCopy(@wndClass[0], ′Shell—TrayWnd′);
　　wndHandle:=FindWindow(@wndClass[0],nil);
　　ShowWindow(wndHandle, SW—HIDE);
　　End;
　　procedure showTaskbar;
　　var
　　wndHandle : THandle;
　　wndClass : array[0..50] of Char;
　　begin
　　StrPCopy(@wndClass[0], ′Shell—TrayWnd′);
　　wndHandle:=FindWindow(@wndClass[0], nil);
　　ShowWindow(wndHandle, SW—RESTORE);
　　end;

　　控制窗体
　　如何在Delphi中把Form控制成不能放大/缩小/移动/关闭的窗体，可进行如下步骤：
　　1.把Form的BorderIcons下的几个子属性值全改为False；
　　2.修改Form的BorderStyle的值为bsSingle；
　　3.为了让窗口不能移动,可以自已拦下WM—NCHITTEST消息，对该消息的处理为：一概回应鼠标点在窗口的Client区域, 相信这个视窗就不会动了。
　　下面是一个例子, 请参考：
　　unit Unit1;
　　interface
　　uses
　　Windows, Messages, SysUtils, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls;
　　type
　　TForm1 = class(TForm)
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
　　private
　　{ Private declarations }
　　procedure WMNCHitTest(var Msg: TMessage); message WM—NCHITTEST;
　　public
　　{ Public declarations }
　　end;
　　var Form1: TForm1;
　　implementation {＄R ＊.DFM}
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　Close; // 不可少, 因为已经没有其他方法能关闭此捶ň褪恰捌燮