라오센창탄 IT 도움말

빠른 보고 1920*1080 해상도 플러스 125% 위의 디스플레이 설정 환경이，"미리보기 인쇄"의 비율이 올바르지 않습니다.(너무 크거나 너무 작음)，그러나 실제 인쇄는 정상입니다.，교정하고 싶다면，컴파일 환경에서 Quick Report의 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;

【參考連結】

• 문자열을 판단하는 경우 방법 | 세 개의 동굴

Delphi 메뉴에는 항상 기본값으로 돌아가는 글꼴이 있는 것 같습니다. (8, 타호마) 문제，해외에서 온 질문，하지만 해결책이 없다。현재 생각할 수 있는 임시 해결책은 기능 키를 설정하는 것입니다. (단축키로 설정할 수 있습니다.)，사용자가 작은 글꼴 크기를 접하게 하십시오.，스스로 글꼴 크기 재설정。(테스트하는 동안 Windows 디스플레이 크기 백분율을 변경하여 메뉴 글꼴을 다시 기본값으로 변경할 수 있습니다.)

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

【參考連結】

• Delphi VCL 강제 메뉴 다시 그리기 – 스택 오버플로
• 가끔씩: Delphi MainMenu 글꼴 확대 및 Menu Checked 프롬프트 아이콘 누락 솔루션

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 키 잡기? – 델파이 팁 – CJC 델파이 (멋진 델파이 팁)
• GetKeyState:GetKeyState ，이 함수는 지정된 가상 키를 검색합니다. -백과사전 지식 중국어 네트워크
• 델파이 온키다운,온키프레스,OnKeyUp 차이점-CSDN 블로그_델파이 onkeydown
• 델파이 키 값 테이블 – 대만 부족
• Delphi에서 ctrl-t 키 누르기를 감지하는 방법 – 스택 오버플로
• 키보드 키 코드 값 비교표

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

【參考連結】

• 델파이는 두 시간의 차이를 초 단위로 어떻게 찾습니까?-CSDN 커뮤니티

두 주 회사 네트워크 아키텍처의 주요 수리하기 전에，바쁜 꿀벌，당신은 프린트 서버의 IP를 수정하는 경우，이 매우 기계가 비뚤어진，첫째 날은 변화를 시작하자，나중에, 더 나은 변경 한 후，상태에서 장시간 사용되기，그는 깰 수있을，일 시도，마지막으로 포기，나는 작은 프로그램을 움켜，放在Server讓程式每隔30秒就對print server來ping一下。

검색 계속 »