公共事件的引用，如何写

Question

unit MyUnit;
interface
    procedure EditKeyPress(Sender: TObject; var Key: Char);implementationprocedure EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9','.',#8]) then
  begin
    key:=#0;
  end;
end;
end.不是要在代码中引用myunit.EditKeyPress
而是，要在左边的事件属性框中，edit控件能够直接选择引用

Answer 1

什么跟什么？
你写在interface 下面，直接调用就OK了。
要在左边的事件属性框中是他本身的事件
edt1.OnKeyPress：=EditKeyPress;
前提是EditKeyPress的参数要和OnKeyPress事件参数相同

Answer 2

unit Unit2;interface
type
  Tmyclass = class
    procedure EditKeyPress(Sender: TObject; var Key: Char);
  end;implementation
{ Tmyclass }procedure Tmyclass.EditKeyPress(Sender: TObject; var Key: Char);
begin
   if not(key in ['0'..'9','.',#8]) then
  begin
    key:=#0;
  end;
end;end.
调用uses
  unit2;
procedure TForm1.FormCreate(Sender: TObject);
var
  mc: Tmyclass;
begin
  edit1.OnKeyPress:=mc.EditKeyPress;
end;