Coisas Que a Gente Sempre Esquece

Não são poucas as vezes que estamos programando e precisamos daquela linha para fazer um procedimento simples, mas que sempre esquecemos o escopo.

Colocamos algumas interessantes aqui que provavelmente já fez você recorrer ao Help para lembrar da palavra chave. Agora é só anotar no post-it no monitor ou, sempre que precisar, voltar aqui para lembrar.

 

Impedir de apagar um registro em um DBGRID através das teclas CTRL+DEL

 

Colocar no evento OnKeyDown do DBGRID:

  

if (Shift = [ssCtrl]) and (Key = 46) Then  KEY := 0;

 

Usar o Enter no Lugar do Tab em todos os controles do Formulário

 

Setar a propriedade KeyPreview do Formulário para True.

Colocar no evento OnKeyPress do Formulário:

  

if (Key = #13) then begin

Key := #0;

Perform(Wm_NextDlgCtl,0,0);

end;

 

Finalizando o Windows

 

ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN,0)

 

Trocando o Ponto decimal para Virgula:

  

if Key in [',','.'] then Key := DecimalSeparator;

 

Obtendo o caminho da aplicação:

  

ExtractFilePath(ParamStr(0))

 

Se você tiver alguma dica desse tipo envie para o Clube, os programadores de plantão agradecem!