Ayuda de TI de Lao Sen Chang Tan

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