Julho 11
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;

Referência [link]

Julho 11

Os menus do Delphi parecem sempre ter fontes que voltam ao padrão (8, Tahoma) O problema,Dúvidas do exterior,mas sem solução。A solução temporária que posso pensar no momento é definir uma tecla de função (Pode ser definido como tecla de atalho),Permitir que o usuário encontre um tamanho de fonte pequeno,Redefinir o tamanho da fonte por conta própria。(Durante o teste, a fonte do menu pode ser alterada de volta ao valor padrão alterando a porcentagem do tamanho de exibição do Windows)

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

Referência [link]

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

Referência [link]

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

Referência [link]

Maio 9

Eu já escrevi um "Inscreva-se no certificado curinga Vamos criptografar no Windows",Este artigo é principalmente através “Obtenha HTTPS gratuitamente!” O site solicita ou estende o certificado manualmente。Quando um novo site foi lançado recentemente,Tente aplicar com a ferramenta WIN-ACME,para facilitar o uso de sua extensão automática mais tarde (renovação) Recursos。
Continue navegando »

Abril 20

Joomla parece começar a partir de 2.X e 3.X,O endereço de e-mail no artigo será convertido automaticamente em um formato de hiperlink。Usando a sintaxe Javascript para o endereço de e-mail de uma página hoje,resulta em um clique,Duas janelas do Outlook aparecerão,Então você precisa desligar a função de conversão embutida。
Continue navegando »

Abril 15

Consultoria ambiental:Recomenda-se que a memória do host WSUS esteja acima de 8G。

Q. O WSUS geralmente ou sempre gera um erro de conexão,Precisa redefinir o nó do servidor。
A1. Tente isso primeiro,Coloque WsusPool(IIS) remova o "limite de memória especial"。
Repor nós do servidor WSUS | Antigo Sen Chang Tan

Continue navegando »

Estragar 11

用 Joomla 4 Construir um novo site,Depois de ativar o SEO e a reescrita de URL,Problema com o site,A princípio, o Google para seu próprio artigo - "reescrita URL Joomla 404 não pode ser exibida",Principalmente porque o AllowOverride do httpd.conf não está definido como All。Mas depois desse tempo,Tornou-se 403 Proibido,E todas as páginas não podem entrar,Independentemente de o URL da página ser usado para reescrever,pesquisou por horas,Finalmente encontrei a razão。
Continue navegando »

Dezembro 29

Colegas relataram que o formato de data do Excel do novo computador não contém o campo "Tipo de calendário",Portanto, é impossível escolher o formato do "Calendário da República da China"。上網查詢後,Alguns artigos dizem que você pode baixar o arquivo cab de microsoft-windows-internationalfeatures-taiwan-package para instalar,Mas depois que eu realmente baixei e instalei,Um código de erro de 0x800f0818 aparecerá,Parece que a versão não corresponde。

Continue navegando »

Novembro 17

在 Joomla 4 No ambiente de teste,Ao instalar idiomas,O seguinte erro irá aparecer:

Erro ao conectar ao servidor: 303

URL inválida
Incapaz de encontrar o pacote de instalação.

Continue navegando »