[DELPHI 7] Vários Códigos e Dicas

[ρяσgяαммєя 0]

Convertendo Imagem JPEG para BMP.

 

// Requer a Jpeg declarada na clausua uses da unit

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Pegando o registro do windows

 

Unit Registry

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Executar um AVI no Form

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Criando um arquivo de texto

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

A melhor maneira de liberar um form da memoria

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Função que arredonda valores

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

13 Pequenas modificações no Delphi

 

As alterações abaixo devem ser feitas no registro com muito cuidado! Faça um backup do seu registro antes de iniciar a alteração!

 

1) Fazer com que a orelha da paleta de componentes seja automaticamente selecionada quando o mouse estiver sob ela:

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Extras]

 

"AutoPaletteSelect"="1"

 

2) Fazer o Scroll para a direita e para a esquerda quando o mouse estiver sobe as setas da paleta de componentes:

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Extras]

 

"AutoPaletteScroll"="1"

 

3) Desabilitar a seleção de menus com seqüências de Ctrl+Alt em teclados internacionais

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Editor\Options]

 

"NoCtrlAltKeys"="0"

 

4) Forçar o texto da direita para a esquerda no form designer (? ainda nãovi funcionando)

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Form Design]

 

"AlwaysEnableMiddleEast"="0"

 

5) Mostrar as fontes no object inspector. Fica lento se houver muitas fontes instaladas

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Extras]"FontNamePropertyDisplayFontNames"="1"

 

6) Mostra erros de compilação no message view window

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Compiling]

 

"ShowCodeInsiteError"="1"

 

7) Mudar a cor da metade da direita ad paleta de propriedades do object inspector

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Globals]

 

"PropValueColor"="clNavy"

 

Cool Desabilitar pacotes

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Disabled Packages]

 

"$(DELPHI)\Bin\dcldss50.bpl"="

 

9) Valor default de TwoDigitYearCenturyWindow (see the help file)

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Globals]

 

"TwoDigitYearCenturyWindow"="50"

 

10) Diretório alternativo de componentes templates(shared/network)

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Component Templates]

 

"CCLibDir"="C:\\D5\\Lib\\Comps"

 

11) Fonte Default para novos formulários

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\FormDesign]

 

"DefaultFont"="MSSansSerif,10,Normal"

 

12) Não perguntar ao mudar o atual JIT debugger (? ainda não vi funcionando)

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Debugging]

 

"DontPromptForJITDebugger"="0"

 

13) Dll usada para a versão de controle de interface na IDE

 

[HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Version Control]

 

"VCSManager"="C:\\D5\\VersCtrl\\VersCtrl.dll"

 

________________________________________________________________________

 

Caracteres Especiais que compõem uma MaskEdit

 

Caracter Descrição

! Espaços em branco não aparecerão

> Todos os caracteres seguintes serão maiúsculos até que apareça o caracter

< Todos os caracteres seguintes serão minúsculos até que apareça o caracter

\ Indica um caracter literal

l (L minusculo) Somente caracter alfabético

L Obrigatoriamente um caracter alfabético (A-Z, a-z)

a Somente caracter alfanumérico

A Obrigatoriamente caractere alfanumérico ( A-Z, a-z, 0-9)

9 Somente caracter numérico

0 Obrigatoriamente caracter numérico

c permite um caracter

C Obrigatoriamente um caracter

# Permite um caracter numérico ou sinal de mais ou de menos, mas não os requer.

: Separador de horas, minutos e segundos

/ Separador de dias, meses e anos

 

________________________________________________________________________

 

Validando CEP

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

DEFINIDO O TAMANHO MÍNIMO E MÁXIMO DE UM FORM

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Evento Som Padrão

 

MessageBeep(0); { no Delphi 2.0 é só usar BEEP; }

 

 

 

Evento Parada Crítica

 

MessageBeep(16);

 

 

 

Evento Pergunta

 

MessageBeep(32);

 

 

 

Evento Exclamação

 

MessageBeep(4Cool;

 

 

 

Evento Asterisco

 

MessageBeep(64);

 

________________________________________________________________________

 

GERANDO SENHAS ALEATORIAS

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Tocando Sons WAV

 

Para reproduzir sons no formato WAV em um programa em Delphi é simples, o usuário deverá colocar na clásula Uses o MMSystem. E no corpo do programa o comando:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Deletando um arquivo

 

if FileExists('C:\MEUDIR\MEUARQ.DAT') then

DeleteFile('C:\MEUDIR\MEUARQ.DAT');

 

________________________________________________________________________

 

Como validar a entrada em um TEdit

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Função que retorna o nome do Computador

Uses Registry;

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

 

Fazer a barra de título ficar intermitente (piscante)

 

Inclua na seção uses: Windows

 

{ Coloque um TTimer no Form desejado. Define a propriedade Interval do Timer para 1000 (1 segundo). Modifique o evento OnTimer do Timer conforme abaixo: }

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Jogar uma imagem direto para um campo da tabela

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Colocar Zeros a Direita de um Inteiro

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

Calcular Idade

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

________________________________________________________________________

 

~ Créditos ~

 

ρяσgяαммєя - Por procurar na Internet e postar aki na Web Cheats

[~ Ronaldinho 0]

Muito bom mano, ajudo aqui e muito...

Obrigado por compartilhar.

 

Abraçss

[lTrent 7]

Não sou programador de Delphi, mas é uma boa lista de funções \o/

 

Quando eu começar eu vou usar \o/