Hola, lo que muestras se puede solucionar creando Forms que hereden de otro Form. Pero no se si sea lo correcto del todo. Esas validaciones las puedes hacer usando algún otro componente como el
SpinEdit o hasta creando tu propio componente cuya base sea el TEdit (
Como en este pequeño ejemplo)
Bueno, de todos modos así puedes hacer lo que quieres:
UFormBase:
Código Delphi
[-]
unit UFormBase;
interface
..
type
TFormBase = class(TForm)
procedure EsNumero(Sender: TObject; var Key: Char);
private
public
end;
var
FormBase: TFormBase;
implementation
{$R *.dfm}
procedure TFormBase.EsNumero(Sender: TObject; var Key: Char);
begin
if (pos('.',(Sender as TEdit).Text)=0) then
begin
if not CharInSet(Key, ['0'..'9','.',#8]) then key:=#0;
end
else
if not CharInSet(Key, ['0'..'9',#8]) then key:=#0;
end;
end.
Unit1:
Código Delphi
[-]
unit Unit1;
interface
..
type
TForm1 = class(TFormBase)
Edit1: TEdit;
procedure EsNumero(Sender: TObject; var Key: Char);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.EsNumero(Sender: TObject; var Key: Char);
begin
inherited;
end;
end.