динамическое содзание компонентов и процедур обработки

[Prisian]

короче говоря, мне надо динамически создать компонент TEdit и процедуры обрабоки его событий.
как динамически создать этот элемент я знаю:
Edit1:=TEdit.Create(self);
Edit1:=parent;
Так я сздаю компоненты, они работают нормально, но поцедуры обработки типа OnKeyPress. немогу.

procedure Edit1.OnKeyPress(Sender:TObject var key:word);
const
vk_enter=#13;
begin
 if key = vk_enter then
begin
Edit2.SetFocus;
end;
end;

если кто может, поскажите как организовать даную проседуру динамически.

[pu4koff]

пишешь эту процедуру заранее, а при создании пишешь Edit1.OnKeyPress := EditKeyPress, где EditKeyPress и есть заранее подготовленный обработчик

[Prisian]

Сообщение от pu4koff

пишешь эту процедуру заранее, а при создании пишешь Edit1.OnKeyPress := EditKeyPress, где EditKeyPress и есть заранее подготовленный обработчик

пробывал, может чего-то неправильно написал, но компилятьр ругался, и не хотел компилить. А где именно заранее надо написать эту процедуру. После implementation или перед begin в Form.Activate где находится моя процедура динамического создания компонента?

[Domovoy]

После implementation>>> и не забудь описать её до implementation.

[pu4koff]

Сообщение от Prisian

пробывал, может чего-то неправильно написал, но компилятьр ругался, и не хотел компилить. А где именно заранее надо написать эту процедуру. После implementation или перед begin в Form.Activate где находится моя процедура динамического создания компонента?

я обычно в форме и описывал, рядом с другими обработчиками

[_Dmitry]

type
  TForm1 = class(TForm)
    Edit2: TEdit;
    procedure FormActivate(Sender: TObject);
  private
  public
    Edit1: TEdit;
    procedure Edit1OnKeyPress(Sender: TObject; var Key: Char);
  end;

procedure TForm1.Edit1OnKeyPress(Sender: TObject; var Key: Char);
begin
 if key = chr(vk_return) then Edit2.SetFocus;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Edit1:=TEdit.Create(self);
  Edit1.OnKeyPress:=Edit1OnKeyPress;
  Edit1.Parent:=self;
end;