[DELPHI] SIMULAR O TAB PRESSIONANDO A TECLA ENTER

//Altere a propriedade KeyPreview do Form para True.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

  if Key = VK_RETURN then

    Perform(WM_NEXTDLGCTL, 0, 0);

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】

[DELPHI] CÓDIGO ASCII DE UMA TECLA

//Adicione um Label no form;

//Mude a propriedade KeyPreview do form para true;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

  Label1.Caption := Format('Código ASCII da letra ' + key + ' é: %d', [Key]);

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】

[DELPHI] ACEITAR APENAS NÚMEROS

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

begin
If not( key in['0'..'9',#8] ) then
  begin
    beep;
     key:=#0;
  end;
end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】