首页 >> 读书频道 >> 电脑 >> Delphi使用技巧ABC
 
· 逻辑“与”运算符 (&&
· 左移赋值运算符 (<
· 用Delphi 设 计
· instanceof 运
· 递增 (++) 和递减
· Delphi如何实现在一
· in 运算符
· 除法运算符 (/)
· 除法赋值运算符 (/=)
· delete 运算符
· DELPHI中的消息处理
· 条件(三目)运算符 (?
 
· 红楼梦:120回全本[清
· 常见图像文件格式详解
· 拉封丹寓言
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

Delphi使用技巧ABC


查看有无更新版本

关键字:Delphi/Pascal 2006-9-22

 

A如何屏蔽系统功能键
有时我们不希望程序被用户用Alt+Tab、Ctrl+Alt+Del、Ctrl+Esc等系统功能键打断(比如自动演示程序),那么该怎么做呢?提示你一点,在运行屏幕保护程序的时候,这些功能键都是不起作用的——也就是说,只要在你的程序运行过程中,“欺骗”一下Windows,使它自以为正处在屏幕保护状态就成了!请看下面这段代码:
var
temp : integer;
begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @temp, 0);
end;
当然,在程序结尾处千万别忘了恢复设置,把Windows“唤醒”。代码如下:
var
temp : integer;
begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @temp, 0);
end;
B如何分行提示
Delphi中大部分控件都有一个实用的Hint属性,即浮动条提示。但有时提示较长,是否可以使得浮动提示条分行显示呢?其实,Hint是一个字符串(string),因而Delphi显示该字符串时会自动解释其中的回车控制符,所以只要加上回车控制符就可以了。依此原理,我们还能做出别具一格的垂直提示条。请先在form1中布置一个label,然后看示例代码:
procedure TForm1.FormCreate(Sender: TObject);
begin label1.Hint := ′垂′ + #13 + ′直′+ #13 + ′提′ + #13 + ′示′;
end;
C如何在菜单中显示图片
用过Office97吗?是不是觉得在菜单中显示图标很新鲜?如果想让你的程序也能如此锦上添花,那就请你赶快准备bmp吧!
假设你打算为“文件”菜单栏(name为n1)下的第9项(序号改为8)“打印”添加一个打印机图标(文件名为c:\inter.bmp),那只要在form的OnCreate事件中这样编写:
var
Bmp : TPicture;
begin
Bmp := TPicture.Create;
Bmp.LoadFromFile(′c:\printer.bmp′);
SetMenuItemBitmaps(n1.Handle,8, MF_BYPOSITION,Bmp. Bitmap. Handle, Bmp.Bitmap.Handle);
end;

Delphi使用技巧ABC

[ 1 ]
Delphi使用技巧ABC num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑