[angvelem]

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

спасибо всем. решение найдено. тема закрыта

Это что ли ?

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

Ну, так сделай:

Код:

procedure MyButtonClick(Self : TComponent; Sender : TButton);
begin
  (Self.FindComponent('edUser') as TEdit).Text := 'hello';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  frmUser: TForm;
  btnUser: TButton;
  edUser:TEdit;
  memUser:TMemo;
  Method : TMethod;
begin
  frmUser := TForm.Create(Self);
  frmUser.Caption := 'Message';
  frmUser.Left := 290;
  frmUser.Top := 196;
  frmUser.Width := 368;
  frmUser.Height := 437;
  btnUser := TButton.Create(frmUser);
  btnUser.Left := 296;
  btnUser.Top := 344;
  btnUser.Width := 25;
  btnUser.Height := 25;
  btnUser.Caption := '>';
  btnUser.Parent := frmUser;
 
  Method.Code := @MyButtonClick;
  method.Data := frmUser; // Self будет твоя форма
  btnUser.OnClick := TNotifyEvent (Method);
 
  edUser := TEdit.Create(frmUser);
  edUser.Name := 'edUser'; // Вот имя - обязательно. По нему будет обращение к компоненту
  edUser.Left := 32;
  edUser.Top := 344;
  edUser.Width := 257;
  edUser.Height := 25;
  edUser.Text := '';
  edUser.Parent := frmUser;
 
  memUser:=TMemo.Create(frmUser);
  memUser.Left := 32;
  memUser.Top := 32;
  memUser.Width := 289;
  memUser.Height := 297;
  memUser.Parent := frmUser;
  memUser.Lines.Clear;
 
  frmUser.Show;
end;

, кто мешает?