变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

當前位置:首頁文章首頁 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
主站蜘蛛池模板: yiren22亚洲综合高清一区 | 狠狠做狠狠做综合日日 | 国产免费叼嘿网站免费 | 狠狠色丁香九九婷婷综合五月 | 99热在线国产| 黄色私人影院 | 在厨房被强行侵犯中文字幕 | 日韩精品国产一区 | 午夜视频在线免费看 | 欧美一区二区三区久久久 | 久久精品小视频 | 成人午夜视频在线观 | 农村妇女又色黄一级毛片 | 欧美激情亚洲激情 | 成人午夜免费福利视频 | 国产精品久久久久久久久久一区 | 国产高清在线精品二区一 | 成人在线精品视频 | 国产成人免费片在线视频观看 | 久久在现 | 成人欧美一区二区三区视频 | 黄色无毒网站 | 日韩欧美国产精品 | 国产片一区二区三区 | 射久久| 天天舔 | 久久精选视频 | 在线观看免费国产视频 | 成人18免费视频 | 黄频大全 | 国产色婷婷精品综合在线手机播放 | 一级在线免费视频 | 一国产大片在线观看 | 欧美高清另类video | 婷婷激情网站 | 制服丝袜怡红院 | 国产欧美日韩综合 | 国产一级做a爱免费观看 | aaa一级特黄 | 亚洲综合第一欧美日韩中文 | 高清欧美不卡一区二区三区 |