Lao Sen Chang Tan IT ヘルプ

今日はDelphiとADの接続機能をテストしたいと思います，インターネットでの授業，「コンポーネント→コンポーネントのインポート」を使用できます。…」をインポートする，しかし実際の運用では，卻出現 “OLE ログインにアクセス中にエラーが発生しました。” エラーメッセージ。

閲覧を続行 »

クイックレポートで 1920*1080 解像度プラス 125% 上記の表示設定環境の場合，「プレビュー印刷」の比率が正しくなくなります。(大きすぎるか小さすぎる)，しかし、実際の印刷は正常です。，修正したい場合は，コンパイル環境でクイックレポートのqrprntr.pasファイルを修正する必要があります，修正するには2つの方法があります。

閲覧を続行 »

unit unit1;

interface

uses
  Windows, Messages....

type
  TFormName = (Casefm1, Casefm2, Casefm3);

function xxx(): Boolean;
var
  StrFormName: String;
  CaseFormName: TFormName;
begin
  StrFormName := 'Case' + vFormName; 
  // 將 FormName(物件) 與 TFormName(值) 做區隔。
  // (vFormName為帶有各FormName的字串變數)
  CaseFormName := TFormName(GetEnumValue(TypeInfo(TFormName), StrFormName));

  case CaseFormName of
    Casefm1:
      begin
        ..............
      end;

    Casefm2:
      begin
        ..............
      end;

    Casefm3: 
      begin
       ...............
      end;

【參考連結】

• 文字列を判断するケースメソッド | 3つの洞窟

Delphiメニューには、常にデフォルトに戻るフォントが含まれているようです (8, タホマ) 問題，海外からの質問，しかし解決策はありません。現時点で考えられる一時的な解決策は、ファンクションキーを設定することです (ホットキーとして設定できます)，ユーザーが小さいフォントサイズに遭遇できるようにする，自分でフォントサイズをリセットする。(テスト中に、Windowsの表示サイズのパーセンテージを変更することにより、メニューフォントをデフォルト値に戻すことができます。)

procedure Tmainform.N93Click(Sender: TObject);
begin
  Screen.MenuFont.Size := 12;
  xxxxxx.BringToFront; // 改變畫面焦點，以刷新選單畫面。
end;

【參考連結】

• DelphiVCLフォースメニューの再描画 – スタックオーバーフロー
• たまに: DelphiMainMenuフォントの拡大とメニューチェック済みプロンプトアイコンに解決策がありません

procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116)  and (HiWord(GetKeyState(VK_CONTROL)) = 1)  then 
  begin
    ......
  end
end;

【參考連結】

• メニュー項目の選択中にShiftキーを押します? – Delphiのヒント – CJCデルファイ (クールなDelphiのヒント)
• GetKeyState:GetKeyState ，この関数は、指定された仮想キーを取得します -百科事典知識中国ネットワーク
• DELPHI OnKeyDown,OnKeyPress,OnKeyUpの違い-CSDN Blog_delphi onkeydown
• デルファイキー値テーブル – 台湾の部族
• DelphiでCtrl-tキーが押されたことを検出する方法 – スタックオーバーフロー
• キーボードキーコード値比較表

var
  vTime, vTime1, vTime2: double;
begin
  vTime1 := GetTickCount();
  vTime2 := GetTickCount();
  vTime := (vTime2 - vTime1) / 1000;
  Showmessage(floatToStr(vTime) + 's');
end;

【參考連結】

• デルファイはどのようにして秒単位の2回の違いを見つけますか？-CSDNコミュニティ

二週間会社のネットワークアーキテクチャの主要な改修の前に，忙しい蜂，あなたは、プリントサーバーのIPアドレスを変更するとき，2非常に曲がったマシンがあります。，最初に私が変更を始めましょう，後で、良い方向に変更した後，非アクティブの長い期間になる，彼はへし折ってやる，一日中みました，最終的にあきらめる，私は、小さなプログラムをつかん，プリントサーバー上のすべての30秒はそれに対してpingを実行するサーバー上でプログラムをしてみましょう。

閲覧を続行 »