Travar tecla backspace
Alguém poderia me dizer se é possível fazer com que o backspace e o home comecem disabilitado
Castor Troy
Curtidas 0
Respostas
Maxsoftware
01/05/2004
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in [#8]then
begin
Key:= 0;
end;
end;
//////////////////////////////////////////////////////////////////////////////
para saber o número de outra tecla e só digitar esse código...
Label1.Caption := Format(´O código da tecla precionada é: ¬d´, [Key]);
Ass: Max...
begin
if key in [#8]then
begin
Key:= 0;
end;
end;
//////////////////////////////////////////////////////////////////////////////
para saber o número de outra tecla e só digitar esse código...
Label1.Caption := Format(´O código da tecla precionada é: ¬d´, [Key]);
Ass: Max...
GOSTEI 0