Delphi に関する 8 つのヒント:
1. Delphi で外部 exe ファイルを呼び出すにはどうすればよいですか?
WinProcs を使用します。
。
始める
WinExec(....);
。
終わり。
これは、Pascal ライブラリ関数を呼び出すことと何ら変わりません。
2. Delphi ヒントのフォントと色を変更する方法
Delphi の TApplication のプロパティには、HintColor と HintPause が含まれます。
アプリケーションでヒントの色を変更するには、HintColor を設定し、HintPause を設定します。
ヒントが発動する時間を変更します。
しかし、残念なことに、Delphi のヒントのフォントは変更できません。
3. Delphi で日付を計算する方法
Delphi では、次のように時間の計算が最も簡単です。
var ss : TDateTime
実際、Tdatetime は倍精度浮動小数点数であり、その小数点は日数を表します。
たとえば、ss := ss + 20 は、ss = 234.567 の場合、ss から 20 日を意味します。
もちろん、西暦 0 年から数えて 234.567 日を意味します。
4. Delphi (null) を使用してスクリーンセーバーをプログラムするにはどうすればよいですか?
スクリーン セーバーは、拡張子が .SCR に変更された実行可能プログラムにすぎません。次の 2 つのコマンド ライン パラメーターを受け入れます。
-s 実行コマンドのパラメータ
-c コマンドパラメータを設定します
Windows は、-s コマンド ライン パラメーターをプログラムに送信することによってプログラムを開始します。
プログラム ウィンドウには境界線やタイトルがありません。また、ウィンドウ サイズは画面サイズと同じである必要があることに注意してください。
ウィンドウイベントの処理。
5. Delphi でディレクトリの名前を変更する方法
次のような RenameFile 関数を呼び出します。
RenameFile('c:/wang/temp', 'c:/wang/tmp');
6. DELPHI は JPEG 画像ファイルを表示します
JPEGを用途に追加するだけです
JPEGユニットにはTJPEGImageクラスがあり、Jpegなどの変数を定義してLoadFromFileで呼び出すことができます。
JPEG ファイルをインポートし、Form の Canvas.Draw(x,y,Jpeg) を使用して表示します。
7. Delphi での Jpeg 形式ファイルの処理...
(1). JPEG ユニットを用途に追加します。
(2) var AJPEG: TJPEGImage などのグローバル変数を定義します。
(3) フォームの OnCreate イベントに次を追加します。
Canvas.Pen.Color:=clBlack;
Canvas.Pen.Style:=psSolid;
Canvas.Brush.color:=clBtnFace;
Canvas.Brush.Style:=bsSolid //これは、将来の利便性のために Canvas のいくつかのプロパティを設定するためのものです。
//フォームをクリアし、新しい JPEG ファイルをロードします。
AJpeg:=TJpegImage.Create;//AJpeg を動的に生成します。
AJpeg.LoadFromFile('D:/Temp.jpg') //AJpeg を生成した後、JPEG ファイルをロードします。
(4).FormのOnPainイベントを追加
Canvas.Rectangle(2,2,560,430); //画像を囲む黒い四角形を描画します。
x:=10; y:=10;
Form1.Canvas.Draw(x,y,AJpeg); // (x,y) を左上隅として JPEG ファイルを出力します。
//実際、その機能は、グラフィックスが破壊されたときにグラフィックスを復元することです。
(5). 「ロード」または「参照」ボタンの OnClick イベントに以下を追加します。
始める
OpenPictureDialog1.Execute の場合
始める
AJpeg.Free // 古い AJpeg を解放します。
AJpeg:=TJpegImage.Create; // 新しい AJpeg を生成します。
AJpeg.LoadFromFile(OpenPictureDialog1.Filename); //JPEG ファイルをロードします。
終わり;
Canvas.Rectangle(2,2,560,430); //フォームをクリアします。
x:=10;
y:=10;
Form1.Canvas.Draw(x,y,AJpeg); //新しい AJpeg を表示します。
終わり;
8. DELPHI3起動画面