Edit em Run-Time
galera meu problema é o seguinte eu criei um edit em run-time só que eu não queria que ele aceitasse letras, somente números. Em um edit comum eu colocaria no onkeypress o seguinte:
if not(key in[´0´..´9´,#8,9,13]) then
Key:=0;
mas, no edit criado em run-time não estou conseguindo fazer o mesmo, alguem pode me dizer como eu faço pro meu edit não eceitar letras.
Desde já valeu.
if not(key in[´0´..´9´,#8,9,13]) then
Key:=0;
mas, no edit criado em run-time não estou conseguindo fazer o mesmo, alguem pode me dizer como eu faço pro meu edit não eceitar letras.
Desde já valeu.
Toshio Bruno
Curtidas 0
Respostas
E_gama
07/05/2003
Crie uma procedure no formato do OnKeyPress:
Depois, de criar seu TEdit em run-time, faça:
procedure TForm1.NovoKeyPress(Sender: TObject; var Key: Char);
begin
// trate aqui as teclas...
end;
Depois, de criar seu TEdit em run-time, faça:
EditCriadoEmRunTime.OnKeyPress := NovoKeyPress;
GOSTEI 0