Delphi使用ABC

2011/5/30 15:23:02  出處：本站   人氣：83次    字號：小  中  大

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


      A�比绾纹帘蜗到y功能鍵
　　有時我們不希望程序被用戶用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過大，只有左上角被顯示。