Solo quiero agregar el código que uso cuando un TEdit va a tener sólo números.
Código:
__fastcall TForm1::TForm1(TComponent* Owner)
:TForm(Owner)
{
LONG dwStyle = GetWindowLong(Edit1->Handle, GWL_STYLE);
SetWindowLong(Edit1->Handle, GWL_STYLE, dwStyle | ES_NUMBER);
}
Con esas dos líneas hago que el Edit1 sólo permita números.
Recuerden que yo programo en C++Builder, pero en Delphi se debe poder hacer también de la misma forma. Si alguien quiere traducir el código...