日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 IT學院 Delphi

Delphi使用ABC

作者:  來源:  發布時間:2011-5-30 15:23:02  點擊:

本文章分享給大家的是關于Delphi使用,分為三部分:A,如何屏蔽系統功能鍵 B,如何分行提示 C,如何在菜單中顯示圖片。希望對大家有所幫助。


      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,然后看示例代碼:
  procedureTForm1.FormCreate(Sender:TObject);
  beginlabel1.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過大,只有左上角被顯示。

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 湖南卫视节目表今天| 母亲电影韩国完整版免费观看| 古灵精探演员表| 黄婉伶| 上锁的房间演员表| 浪人电影在线观看完整版免费| 学校要的建档立卡证明| justin harris| 美丽人生在线观看| 六年级上册美术教案人教版| 拔萝卜视频免费播放| 今日航班一览表| 降魔的| 接吻摸胸视频| 黄视频免费观看网站| 少年智力开发报| a级性片| 八下数学练习册答案| 性感瑜伽| 中川翔子| 布衣神相国语电视剧在线看完整版| 海灯法师电视剧| 今年过年时间| disturbia| 工伤赔偿协议书| nina hartley| 电影处女地| 五年级上册写字表拼音| 男女打扑克视频网站| 赤足惊魂电影| 林子祥电影| 免费看网站| 欢场| 爱在西元前简谱| 红海行动2虎鲸行动在线播放国语| 纵横欲海| 口述公交车上| 黄金比例身材| 天下第一楼剧情介绍| 欧美吻戏视频| 母亲とが话しています免费|