Delphi Meeting 2009

A Embarcadero estará promovendo nos dias 27/05 à 10/06 o Delphi Meeting nas principais cidades do Brasil, começando por Campinas, passando por Ribeirão Preto, Belo Horizonte, Brasília, Porto Alegre, Vitória, São Paulo, Goiânia e terminando em Natal, onde o objetivo é reunir os desenvolvedores Delphi e apresentar as novidades do Delphi 2009.

O evento é gratuito e as inscrições podem ser feitas clicando em Delphi Meeting 2009.

Fonte: Embarcadero

Limpando Edits dinamicamente no Delphi

Muitas vezes precisamos limpar o conteudo de mais de um edit de tela e normalmente resolvemos o probelma da seguinte situação:

onde pegamos edit à edit e colocamos no evento no qual usaremos para zerar os edits, como exemplo um evento de botão Limpar ou Cancelar para podermos executar a operação no momento desejado.

Outra forma é adiconar todos os edits em algma função e usar a chamada no evento desejado.

Mas vai ai uma dica e uma das formas mais corretas de se executar esta função que é criando uma função chamando o tipo do componente que queremos limpar o seu conteúdo e no evento na qual iremos usar a função passar somente os campos que terão seu contéudo zerado apagado.

Por exemplo a função abaixo:

 

Irá verificar se na Unit onde a mesma for chamada existe compontes do tipo TCustomEdit e irá zerar o conteúdo de todos os componentes da tela.

A figura abaixo demostra a utilização a função LimpaEdits passando como parametros os  3 edits usando no nosso exemplo:

Bom, espero ter ajudado, não sou nenhum expert em Delphi ou em Objetct Pascal, mas vai ai minha primeira dica em Delphi.

Como Limpar Todos os Edit's de um Form de uma só vez

Pra você que tem uma tela cheia de Edits e sempre precisa estar limpando, segue uma dica legal para fazer uma limpeza geral.

procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
// assim limpara todos os Edits, Memos, MaskEdits, etc...
//Valeu!!

Caracteres Especiais que compõem uma MaskEdit

Segue uma lista de caracteres especiais para você montar sua mascara


! - 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 - 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

Forçar um Edit a Aceitar Só Letras ou Só Números

No evento OnKeyPress do Edit.

Só números:
if not (Key in['0'..'9',Chr(8)]) and (Key #13) and (Key #8) then
Key := #0;

Só letras:

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

EXECUTANDO PROGRAMAS EXTERNOS

Se você precisa abrir programas externos no seu aplicativo DELPHI, como a calculadora do Windows, por exemplo, inclua a seguinte linha no seu programa:

WinExec('calc.exe', sw_show);

'calc.exe' é o nome do programa. Caso queira abrir um outro programa, altere este nome.

Principais Eventos do Delphi

Segue uma dica sobre qual a funcionalidade dos principais eventos do Delphi


OnChange - Ocorre quando um determinado valor de um objeto ou componente é alterado
OnClick - Ocorre quando o usuário da um clique sobre o componente
OnDblClick - Ocorre quando o usuário da um duplo-clique sobre um componente
OnDragDrop - Ocorre quando o usuário solta um objeto sendo arrastado
OnDragOver - Ocorre quando o usuário arrasta um objeto sobre um componente
OnEndDrag - Ocorre quando termina o arrasto de um objeto
OnEnter - Ocorre quando um componente torna-se ativo
OnExit - Ocorre quando o foco de input passa de um componente para outro
OnKeyDown - Ocorre quando o usuário pressiona qualquer tecla quando um componente possuir o foco
OnKeyPress - Ocorre quando o usuário pressiona uma única tecla de caractere
OnKeyUp - Ocorre quando o usuário solta uma tecla que estava pressionada
OnMouseDown - Ocorre quando o usuário pressiona o botão mouse enquanto o ponteiro do mouse estiver sobre um componente
OnMouseMove - Ocorre quando o usuário move o ponteiro do mouse quando o ponteiro do mouse estiver sobre o componente
OnMouseUp - Ocorre quando o usuário solta o botão do mouse quando o ponteiro do mouse estiver sobre um componente