Delphi使用ABC

原创 2001年04月22日 10:37:00
 

Delphi使用技巧ABC<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

 

  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;

  其中,第一个bitmap.handle用于未选定菜单项(unchecked),第二个则指定了选定(checked)时所显示的bitmap,同异皆可。另外,由于菜单项的高度有限,所以,若bitmap过大,只有左上角被显示。

Delphi使用ABC

  • zgqtxwd
  • zgqtxwd
  • 2008年04月30日 21:50
  • 181

Delphi,几个实用的HTML解析函数

1)HTML 标签值攫取函数,任意标签哦,纯字符串分析,可以配合IDHTTP编程 uses StrUtils; function ExtractHtmlTagValues(const Ht...
  • delphiorang
  • delphiorang
  • 2015年10月27日 10:45
  • 486

DELPHI下打造自己的简单木马

今天晚上无聊写着玩的,如果你是高手就别看了,免得我丢人。本文章只适合初学DELPHI小菜。刚学电脑时很喜欢网络安全,看着高手们写的一个又一个攻击工具,自己也总想努力去学好编程去写属于自己的程序。学DE...
  • lanyus
  • lanyus
  • 2005年10月15日 20:40
  • 1673

输入一字符串,将其反着输出,如输入abc,则输出cba。

代码实现:#include #include #include int main(){ char buffer[32]; char str[32]; cout cin>>buffer; int len...
  • tlty
  • tlty
  • 2006年10月12日 20:43
  • 2077

(2)Mysql ---- 索引ABC 《MYSQL 5.5从零开始学》笔记

索引是一种特殊的数据库结构,可以用来快速查询数据库表中的特定记录。索引是提高数据库性能的重要方式。 MySQL中,所有的数据类型都可以被索引。 MySQL的索引包括普通索引、唯一性索引、全文索引、...
  • pandajava
  • pandajava
  • 2015年01月13日 10:03
  • 1165

排列(permutation):用1,2,3,...,9组成3个三位数abc, def和ghi,每个数字恰好使用一次,要求abc:def:ghi = 1:2:3。输出所有解。提示:不必太动脑筋。

习题2-10 排列(permutation)用1,2,3,...,9组成3个三位数abc, def和ghi,每个数字恰好使用一次,要求abc:def:ghi = 1:2:3。输出所有解。提示:不必太动...
  • guoqingchun
  • guoqingchun
  • 2015年11月24日 22:37
  • 1888

1,2,3……,9组成3个三位数abc,def和ghi,每个数字恰好使用一次,要求abc:def:ghi=1:2:3.输出所有解。

很多时候要注意思考
  • Ber_Bai
  • Ber_Bai
  • 2017年07月22日 21:32
  • 871

echo count(“abc”); 输出什么?

”1″count —计算数组中的单元数目或对象中的属性个数int count (mixed$var [, int$mode ] ), 如果 var 不是数组类型或者实现了Countable 接口的对象...
  • guichenglin
  • guichenglin
  • 2010年12月03日 13:33
  • 5078

java多线程---顺序打印ABC的三种实现---join方法

使用join方法,让三个线程之间存在等待关系 代码如下: package com.zcj.join; public class JoinTest { public static void m...
  • whu_zcj
  • whu_zcj
  • 2016年05月31日 15:37
  • 1277

Stringstr=new String("abc") 这行代码究竟创建了几个对象?

Stringstr=new String("abc");   紧接着这段代码之后的往往是这个问题,那就是这行代码究竟创建了几个String对象呢? 相信大家对这道题并不陌生,答案也是众所周知的,2个...
  • stanxl
  • stanxl
  • 2015年01月03日 10:32
  • 3971
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi使用ABC
举报原因:
原因补充:

(最多只允许输入30个字)