[ethangio]

Buen día a todos y gracias por la ayuda de antemano.

Tengo un procedimiento llamado "Numero" declarado en mi Form, el cual cuando selecciono el TEdit puedo asignarle éste procedimiento en el evento OnKeyPress.

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    procedure Numero(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Numero(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.

Como es un procedimiento que ocuparé en otros Form's, he creado un archivo llamado proc_func.pas y he puesto ahí el procedimiento Numero, en la clausula USES de mi Form puse el archivo proc_func.pas.

La cuestión es que cómo puedo referenciar a ese procedimiento y asignárselo a al evento OnKeyPress del Edit sin tener que poner el código:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   proc_func.Numero(Sender, Key); 
end;

Sino asignárselo de manera directa como en la imagen anterior.


Muchas gracias.