新しい Windows プログラミング言語として、Delphi はその多くの優れた機能により、プログラマーや愛好家の間でますます支持されています。以下の 10 個のヒントは幅広いトピックをカバーしており、Delphi 愛好家にとって有益であることを願っています。
1. vbに似ています。 doevents は機能します。
Delphi には vb に相当するものが存在しないことに気づくかもしれません。 doevents は機能するため、Windows を複数の同時イベントに応答させることができない場合があります。実際、Delphi のアプリケーション オブジェクトには、PROccessMessage という同様のメソッドが含まれており、アプリケーションを呼び出すことができます。 vb のように完了する ProcessMessage。の doevents と同じ機能。
2. Delphi で NetscapeNavigator を呼び出します。
インターネットの普及に伴い、Delphi プログラムで Netscape ブラウザを起動し、指定した WWW アドレスのホームページを表示したいと考えたことはありますか?次のプログラムはこの機能を実現できます。
プログラムネットスケープ;
DDEMan を使用します。
プロシージャGo??toURL(sURL: string);
変数
dde:TDDEClientConv;
始める
dde:=TDDEClientConv.作成(nil);
撤退しました
始める
//ネットスケープの場所を指定します。 EXE
ServiceApplication：=′c： s32program etscape． EXE';
//Netscape Navigator をアクティブにする
SetLink('Netscape', 'WWW-Activate');
RequestData('0xFFFFFFFF');
//指定されたURLに移動します
SetLink('Netscape', 'WWW-OpenURL');
RequestData(sURL+',,0xFFFFFFFF,0x3,,,');
リンクを閉じる;
終わり;
で。無料;
終わり;
始める
GotoURL('http://www.yahoo.com/');
終わり。
3.フォーマットされた整数出力。
比較的大きな数値は、出力時に読みにくく見えます。Delphi では、xxxxx のようにセクション マークを付けて数値を表示するのが非常に簡単です。キャプション: ΚFormatFloat('#', 524667500)。
4.コンパイル時にヒントを取得します。
Delphi2.0 では、コンパイル時に、宣言されているが使用されていない変数などのヒントを伝えるようにコンパイラに依頼できます。 Delphi でこれを実行するかどうかは、メニューのオプションで制御できることはわかっていますが、特別なニーズにより、指定したコード セグメントでプロンプトを表示するだけで Delphi が必要な場合はどうすればよいでしょうか?以下の手順をご参照ください。
{$ヒントン}
手続きフォーム1． Button1Click(送信者: TObject);
変数
X: 整数。
始める
終わり;
{$ヒント}
5. Windows95の壁紙を変更します。
Delphi では壁紙を簡単に変更できます。以下の手順を参照してください。
プロシージャ変更してください。
変数
登録:TregIniファイル;
始める
Reg：ΚTRegIniFile． Create('コントロールパネル')
;
登録WriteString('デスクトップ', '壁紙',
'c:pwin95forest。 bmp');
登録WriteString('デスクトップ', 'タイル壁紙
','1');
登録無料;
SystemParametersInfo(SPI-SETDESKWALLPAPER, 0
、nil、SPIF-SENDWININICHANGE);
終わり;
6．ファイルが最後に使用された日付を取得します。
Win95 には、ファイルに最後にアクセスした日付を取得する新しい関数があります。有名な CleanSweapforWin95 ソフトウェアは、ファイルが頻繁にアクセスされるかどうかを判断する基準の 1 つとしてこの機能に依存しています。 Delphi では、次のプログラムを通じてこの機能を実現できます。
functionGetFileLastaccessTime(sFileName:string):TDate??Time;
変数
ffd:TWin32FindData;
dft:DWord;
lft:TFileTime;
h: Tハンドル;
始める
//ファイル情報を取得する
h：ΚWindows． FindFirstFile(PChar(sFileName), ffd);
if（無効―ハンドル―値ΙΛh）then
始める
//私たちはただ 1 つのファイルを探しています。socloSE私たちの「検索」
ウィンドウズ。 FindClose(h);
//FILETIME をローカル FILETIME に変換します
FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft);
//FILETIME を DOS 時間に変換します
FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
//最後に、Delphi のネイティブの日付/時刻関数で使用するために、DOStime を TDateTime に変換します。
結果: ΚFileDateToDateTime(dft);
終わり;
終わり;
GetFileLastAccessTime() は、指定したファイルの最終アクセス日を Delphi の TdateTime 形式で返します。
7.カラフルなラベル。
Delphi が提供する単純なラベルに満足できなくなり、パフォーマンス機能を強化するためにラベルに異なるフォントや色を使用できますか。答えは「はい」です。サードパーティが提供するコントロールは必要ありません。Delphi 自体が提供する TRichEdit をうまく使用するだけです。まず、TRichEdit コントロールの境界線を削除します: RichEd??it1。 BorderStyle: ΚbsNone; また、読み取り専用属性を true: RichEd??it1 に設定します。 ReadOnly: ΚTrue; 次に、write などのソフトウェアを使用して、次のステートメントで表示できるリッチテキスト形式のテキストを作成します。
リッチエディット1.プレーンテキスト:ΚFalse;
リッチエディット1.行． LoadFromFile('c: est.rtf');
8. Win95 で重大なエラーが表示されないようにする方法。
プログラムを繰り返しデバッグしても、プログラムをユーザーに渡した後、予期せぬエラーが発生する可能性があります。Win95 が白いウィンドウを表示して、恥ずかしい予期せぬエラーが発生したことをユーザーに知らせないようにする方法はありますか。これを行うことができます:
変数
wOldError??モード: Word;
始める
//tellwin??dowstoignorecriticalerrorsandsavecur??renterrormode
wOldError??モード: ΚSetEr??rorMode (SEM-FAILCRITI??CALERRORS);
試す
//重大なエラーを生成する可能性のあるコードはここにあります。 ． ．
ついに
//前のエラーモードに戻る
SetErrorMode(wOldErrorMode);
終わり;
終わり;
この関数を完了するには、主に SetErrorMode() を使用します。
9.マウスでクリックされたオブジェクトはどれですか。
Win95 では、マウスの右ボタンが大きな役割を果たしますが、歴史的な理由により、Delphi でも右ボタンの使用は十分に効果的ではありません。次のプログラムは、オブジェクトの名前を知る方法を示します。を右クリックしただけです。まずポップメニューを作成します。次に、次のコードにより、右クリックしたオブジェクトの名前がわかります: Popup??Menu1。ポップアップコンポーネント。クラス名。
10. CD-ROM や他のディスクが変更されていないか確認してください。
CD-ROM またはディスクが変更されたかどうかを確認する最も簡単な方法は、そのボリューム番号を確認することです。次の関数を使用するだけで、ディスクのボリューム シリーズ番号 GetDiskVolSerialID ('E') を返すことができます。関数コードは次のとおりです。
functionGetDiskVolSerialID(cDriveName: char): DWord;
変数
dwTemp1、dwTemp2:DWord;
始める
GetVolumeInformation(PChar(cDriveName+':'), Nil, 0, ΝResult, dwTemp2, dwTemp2, Nil, 0);
終わり;