Lao Sen Chang Tan Ajuda de TI

Hoje quero testar a função de conectar Delphi ao AD，Ensinando na Internet，Você pode usar "Componente → Importar Componente"…”para importar，Mas na operação real，卻出現 “Ocorreu um erro ao acessar o login OLE。” A mensagem de erro。

Continue navegando »

Relatório rápido em 1920*1080 resolução mais 125% Quando o ambiente de configuração de exibição acima é，A proporção de “Preview Print” estará incorreta.(muito grande ou muito pequeno)，Mas a impressão real é normal.，Se você quiser corrigir，É necessário modificar o arquivo qrprntr.pas do Quick Report no ambiente de compilação，Existem duas maneiras de corrigi-lo。

Continue navegando »

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]

• método case para julgar string | três cavernas

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]

• Repintura do menu de força do Delphi VCL – Stack Overflow
• de vez em quando: Alargamento da fonte Delphi MainMenu e solução ausente do ícone do prompt 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;

Referência [link]

• Capturar a tecla SHIFT durante a seleção do item de menu? – Dicas Delphi – CJC Delphi (Dicas legais do Delphi)
• GetKeyState:GetKeyState ，Esta função recupera a chave virtual especificada -Rede Chinesa de Conhecimento da Enciclopédia
• DELPHI OnKeyDown,OnKeyPress,Diferença OnKeyUp-CSDN Blog_delphi onkeydown
• tabela de valores de chave delphi – tribo de Taiwan
• Como detectar a tecla ctrl-t no Delphi – Stack Overflow
• Tabela de comparação de valores de código de tecla do teclado

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

Referência [link]

• Como o delphi encontra a diferença entre duas vezes em segundos?-comunidade CSDN

Duas semanas antes de a empresa de arquitetura de rede grandes reformas，Abelha ocupada，Quando você modifica IP do servidor de impressão，Há dois muito máquina torto，Primeiro deixe-me começar a mudança，Mais tarde, depois mudando para melhor，Torne-se um longo período de inatividade，Ele vai quebrar，Tentei um dia，Finalmente desistindo，Peguei um pequeno programa，放在Server讓程式每隔30秒就對print server來ping一下。

Continue navegando »