Aシステムファンクションキーをブロックする方法
ユーザーが Alt+Tab、Ctrl+Alt+Del、Ctrl+Esc およびその他のシステム ファンクション キー (自動デモンストレーション プログラムなど) を使用してプログラムを中断したくない場合があります。では、どうすればよいでしょうか?スクリーン セーバーの実行中は、これらのファンクション キーが非アクティブであることを思い出してください。つまり、プログラムが実行されている間は、Windows を「騙して」、スクリーン セーバーが保護ステータスになっていると認識させることができます。 ！次のコードを見てください。
変数
温度 : 整数;
始める
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);
終わり;
もちろん、プログラムの最後に設定を復元し、Windows を「ウェイクアップ」することを忘れないでください。コードは次のとおりです。
変数
温度 : 整数;
始める
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);
終わり;
B ブランチにプロンプトを表示する方法
Delphi のほとんどのコントロールには、フローティング バー プロンプトである実用的な Hint プロパティがあります。しかし、プロンプトが長い場合があります。フローティング プロンプト バーを別々の行に表示できますか?実際、ヒントは文字列なので、文字列を表示するときに Delphi が自動的に復帰制御文字を解釈するため、復帰制御文字を追加するだけです。この原則に基づいて、独自の垂直プロンプト バーを作成することもできます。まず form1 にラベルを配置してから、サンプル コードを見てください。
PROcedure TForm1.FormCreate(送信者: TObject);
begin label1.Hint := 'vertical' + #13 + 'straight' + #13 + 'ti' + #13 + 'show';
終わり;
Cメニューに写真を表示する方法
Office97を使ったことはありますか？メニューにアイコンを表示するのは新鮮だと思いますか?プログラムに素晴らしいものを加えたい場合は、できるだけ早く bmp を準備してください。
メニューバー「ファイル」の９番目（シリアル番号を８に変更）「印刷」（名前はn1）にプリンターアイコン（ファイル名はc:/inter.bmp）を追加するとします。フォームの OnCreate である限り、イベントは次のように記述されます。
変数
Bmp: Tピクチャ;
始める
Bmp := TPicture.Create;
Bmp.LoadFromFile('c:/printer.bmp');
SetMenuItemBitmaps(n1.Handle,8, MF_BYPOSITION,Bmp.Bitmap.Handle, Bmp.Bitmap.Handle);
終わり;
このうち、最初の bitmap.handle は選択されていないメニュー項目 (チェックなし) に使用され、2 番目の bitmap.handle は選択された (チェックされている) ときに表示されるビットマップを指定します。これらは同じでも異なっていても構いません。また、メニュー項目の高さには制限があるため、ビットマップが大きすぎると左上隅のみが表示されます。 （上海・王振）