Delphi使用ABC

2019-11-18 18:57:04

字體：大中小

供稿：網(wǎng)友

A如何屏蔽系統(tǒng)功能鍵
　　有時(shí)我們不希望程序被用戶用Alt＋Tab、Ctrl＋Alt＋Del、Ctrl＋Esc等系統(tǒng)功能鍵打斷（比如自動(dòng)演示程序），那么該怎么做呢？提示你一點(diǎn)，在運(yùn)行屏幕保護(hù)程序的時(shí)候，這些功能鍵都是不起作用的——也就是說，只要在你的程序運(yùn)行過程中，“欺騙”一下Windows，使它自以為正處在屏幕保護(hù)狀態(tài)就成了！請(qǐng)看下面這段代碼：
　　var
　　temp : integer;
　　begin
　　 SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @temp, 0);
　　end；
　　當(dāng)然，在程序結(jié)尾處千萬(wàn)別忘了恢復(fù)設(shè)置，把Windows“喚醒”。代碼如下：
　　var
　　temp : integer;
　　begin
　　 SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @temp, 0);
　　end；
　　B如何分行提示
　　Delphi中大部分控件都有一個(gè)實(shí)用的Hint屬性，即浮動(dòng)條提示。但有時(shí)提示較長(zhǎng)，是否可以使得浮動(dòng)提示條分行顯示呢？其實(shí)，Hint是一個(gè)字符串（string），因而Delphi顯示該字符串時(shí)會(huì)自動(dòng)解釋其中的回車控制符，所以只要加上回車控制符就可以了。依此原理，我們還能做出別具一格的垂直提示條。請(qǐng)先在form1中布置一個(gè)label，然后看示例代碼：
PRocedure TForm1.FormCreate(Sender: TObject);
　　begin label1.Hint := ′垂′ ＋＃13 ＋ ′直′＋＃13 ＋ ′提′ ＋＃13 ＋ ′示′；
　　end;
　　C如何在菜單中顯示圖片
　　用過Office97嗎？是不是覺得在菜單中顯示圖標(biāo)很新鮮？如果想讓你的程序也能如此錦上添花，那就請(qǐng)你趕快準(zhǔn)備bmp吧！
　　假設(shè)你打算為“文件”菜單欄（name為n1）下的第9項(xiàng)（序號(hào)改為8）“打印”添加一個(gè)打印機(jī)圖標(biāo)（文件名為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;
　　其中，第一個(gè)bitmap.handle用于未選定菜單項(xiàng)（unchecked），第二個(gè)則指定了選定（checked）時(shí)所顯示的bitmap，同異皆可。另外，由于菜單項(xiàng)的高度有限，所以，若bitmap過大，只有左上角被顯示。 (上?！⊥簟◇?　

上一篇：怎樣用delphi制作一個(gè)IPhunter(獨(dú)孤劍客的IP獵人)

下一篇：delphi5。0秘籍大暴光

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注