Ayuda de TI de Lao Sen Chang Tan

Informe Rápido en 1920*1080 resolución más 125% Cuando el entorno de configuración de pantalla anterior es，La proporción de "Vista previa de impresión" será incorrecta.(demasiado grande o demasiado pequeño)，Pero la impresión real es normal.，Si quieres corregir，Es necesario modificar el archivo qrprntr.pas de Quick Report en el entorno de compilación.，Hay dos formas de corregirlo.。

Continuar con la búsqueda »

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;

【參考連結】

• método del caso para juzgar cadenas | tres cuevas

Los menús de Delphi parecen tener siempre fuentes que vuelven a las predeterminadas (8, Tahoma) El problema，Preguntas desde el exterior，pero no hay solución。La solución temporal que se me ocurre en este momento es establecer una tecla de función (Se puede configurar como tecla de acceso directo)，Permita que el usuario encuentre un tamaño de fuente pequeño，Restablezca el tamaño de fuente usted mismo。(Durante la prueba, la fuente del menú se puede volver a cambiar al valor predeterminado cambiando el porcentaje de tamaño de pantalla de Windows)

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

【參考連結】

• Repintado del menú de fuerza VCL de Delphi – Desbordamiento de pila
• de vez en cuando: Falta la solución para la ampliación de la fuente Delphi MainMenu y el ícono de aviso de 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;

【參考連結】

• Atrapa la tecla SHIFT durante la selección de elementos del menú? – Consejos de Delfos – CJC Delfos (Consejos geniales de Delphi)
• ObtenerEstadoClave:ObtenerEstadoClave ，Esta función recupera la clave virtual especificada -Enciclopedia Conocimiento Red China
• DELPHI OnKeyDown,PresionarTecla,Diferencia OnKeyUp-CSDN Blog_delphi onkeydown
• tabla de valores clave delphi – tribu de taiwán
• Cómo detectar la pulsación de tecla ctrl-t en Delphi – Desbordamiento de pila
• Tabla de comparación de valores de códigos de teclas del teclado

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

【參考連結】

• ¿Cómo encuentra Delphi la diferencia entre dos tiempos en segundos?-comunidad CSDN

Dos semanas antes de la arquitectura de red de la empresa que las reformas importantes，Abeja ocupada，Al modificar IP de servidor de impresión，Hay dos máquinas muy torcida，Un destino de inicio Shi FuYuzuruwarearatame，Bueno después 来 trasero 改，Conviértete en un largo período de inactividad，Él va a romper，试 了 IchiSeiten，Finalmente abandonado，Cogí un pequeño programa，Póngalo en el servidor y deje que el programa haga ping al servidor de impresión cada 30 segundos。

Continuar con la búsqueda »