Delphi - ET

Hola ET, como estas espero k bien

haber si me puedes ayudar con esto:

tengo un edit y necesito que el cursor solo funcione cuando le digite numero

y cuando el usuario por error quiera digitar una letra el cursor, no responda
se quede en el edit, sin hacer nada.

que tendria que decirle a ese EDIT y en que evento, para lograr esto.

gracias de antemano ET.

Pues para solo teclear numeros en el evento OnKeyPress del edit pon esto

if not(key in['0'..'9', #8])then
key:=#0;

Es lo básico, puedes modificarla para hacer mucho más

Yo me hice una funccion para eso
//###############################################################
//# solo usar en el evento onkeypress # //# permite las teclas (1 2 3 4 5 6 7 8 9 0 . Enter Backspace Esc ) #
//###############################################################
function Msp_EditKeysFloat( i: Char ): Char;
Const
Msp_Teclado_Enter = #13;
Msp_Teclado_Esc = #27;
Msp_Teclado_BackSpace = #8;
begin
case i of
'0'..'9': Result := i;
'.': Result := i;
Msp_Teclado_BackSpace: Result := i;
Msp_Teclado_Esc: Result := i;
Msp_Teclado_Enter: Result := i;
else
Result := #0;
end;
end;

y la inserto en el evento OnKeyPress

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Key := Msp_EditKeysFloat( Key );
end;