Pages

terça-feira, 7 de junho de 2011

fazendo um TEdit aceitar apenas números/letras

Para fazer o TEdit aceitar apenas letras ou apenas números coloque o seguinte código:

Aceitar apenas números:

if not (Key in['0'..'9',Chr(8)]) then
begin
Key := #0;
end;


Aceitar apenas letras:

if (Key in['0'..'9',Chr(8)]) and (Key #13) and (Key #8) then



begin
  Key := #0;
end;


Coloque o código no evento OnKeyPress do TEdit.

Extrair nome, local da aplicação e EXT

Para pegar o nome:

ExtractFileName(Application.ExeName);

Para pegar o caminho:

ExtractFilePath(Application.ExeName);

Para pegar a Ext:

ExtractFileExt(Application.ExeName);


Utilizando na pratica.

Novidade

Agora é muito mais fácil acessar o blog: http://www.delphisource.com.br/

segunda-feira, 6 de junho de 2011

Códigos das Teclas Virtuais

A tabela a seguir mostra as constantes, valores hexadecimais, valores decimais e os equivalentes no mouse e teclado para os códigos das teclas virtuais usadas pelo Windows. Observe que, no Delphi, estas constantes podem ser testadas nos eventos OnKeyDown e OnKeyUp. Veja um exemplo:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if Key = VK_BACK then
    ShowMessage('A tecla Backspace foi pressionada');
end;



Se estiver testando as teclas diretamente no formulário, lembre-se de definir sua propriedade KeyPreview para true.


Para ver a tabela continue lendo o post. (Original)