usando o evento OnKeyPress

Quando usamos o evento onKeyPress, este evento ocorre quando você pressiona um [ENTER], ou quando estamos pressionando qualquer teclado do nosso teclado, agora vamos pressionar qualquer tecla para visualizamos, conforme imagem abaixo.


Exemplo :

Então vamos para o código.

Para conseguimos este resultado, clica no button e vai no "Object Inspector" do Delphi, e encontre a aba eventos OnKeyPress, agora vamos colocar este código abaixo.


CÓDIGO:

Procedure TForm1.Button1KeyPress(Sender : TObject; var key: Char);
begin
   MessageDLG('A tecla [' + key + '] foi pressionada', mtInformation, [mbok], 0 );
end;

exemplo foi bem simples apenas para intendimento de como podemos recuperar as teclado pressionando durante a digitação e um caso.

Espero que Goste, até o próximo post!!!

usando o evento onChange

o Evento onChange Ocorre quando o objecto ou se conteúdo muda de valor.

Exemplo :

procedure TForm1.Edit1Change(Sender : TObject);
begin
Edit2.text := 'O Valor contigo no object edit1.text foi alterado';
end;

usando o evento onClick

o evento onclick é disparado no instante em que você clica com o botão esquerdo do mouse sobre o objeto.

Exemplo :

procedure TForm1.ButtonClick(sender : object) ;
begin
cliente.showModal;
end;

Dayofweek

objetivo
Retornar um valor inteiro para o dia da semana que representa a data passada como parâmetro.

sintaxe
dayofWeek(Date: TDatetime): Integer;

exemplo :
NumDia := DayofWeek(strTodate(edtData.text));


A função retorná valores entre 1 e 7 . indica o primeiro dia da semana, que é domingo, e o sétimo e último dia, que é sábado.

Date

Objetivo
Retornar à data Atualmente definida pelo sistema operacional.

sintaxe :
Data : TDateTime;

Exemplo :
loData : Date;

sobre o exemplo :
O Retorno será atribuído à variável loData, obrigatoriamente (nesse caso) deve ter sido declarada com TDateTime.

DateToStr

Dicas

Objetivo
Converter o valor do argumento TDateTime em um string.

Sintaxe
DateToStr(Data : TDateTime): String;

Data : Isto representa uma data, a qual deverá ser convertida para String.

exemplo de usar :
loData : DateToStr(Date);

Sobre o Exemplo:
neste exemplo, o retorno será atribuído à variável loData, que obrigatoriamente (nesse caso) deve ter sido declarada com String;