Пытаюсь добраться через Sender до владельца и изменить Edit расположенный на владельце, но не чего не происходит

[Аватар]

1. Использовать Parent вместо Owner. Родитель в смысле контейнера для визуального объекта Parent, а не Owner
2. В этом родителе искать эдиты в цикле в свойстве Controls

PS и ваще весь код выбросить

[Fantomas_RUS]

Я кликаю по динамически созданной кнопке на динамической форме. На этой форме есть еще динамический Edit. Необходимо по нажатию изменить содержимое Edit-а.

[Fantomas_RUS]

Сообщение от Аватар

1. Использовать Parent вместо Owner. Родитель в смысле контейнера для визуального объекта Parent, а не Owner
2. В этом родителе искать эдиты в цикле в свойстве Controls

Можно пример пожалуйста.

[Iron Monk]

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

Можно пример пожалуйста.

var
f: TForm;
b: TButton;
e: TEdit;
m: TMethod;

procedure _Edit;
begin
 e.Text:= 'bla-bla';
end;

procedure _Create;
begin
   f:= TForm.Create(nil);
   f.SetBounds(50,50,200,120);
   f.Caption:= '...';
   b:= TButton.Create(f);
   b.SetBounds(10,10,75,25);
   b.Parent:= f;
   b.Caption:= 'Ok';
   e:= TEdit.Create(f);
   e.SetBounds(10,40,75,25);
   e.Parent:= f;
   m.Code := @_Edit;
   m.Data := nil;
   b.OnClick:= TNotifyEvent(m);
end;

begin
   _Create;
   f.ShowModal;
   FreeAndNil(f);
end.

[evg_m]

Надо
F.Edit1:=TEdit.Create(F);
НО, учитывая private edit1: TEdit; так написать НЕ получится. (если конечно TFormOption "как положено" находится в другом uinit относительно TForm1)
стало быть, есть еще и глобал var Edit1: TEdit; в которой и содержится созданный объект.

Коллеги, забыл указать что я в действительности

procedure TForm1.BitBtn1Click(Sender: TObject);
var F: TOptionForm; A: TSpeedButton;
begin

А

TOptionForm(TSpeedButton(Sender).Ow ner).Edit1.Text:= '11111';

должен "ругаться" AccsessViolation (AV)

изменить Edit расположенный на владельце, но не чего не происходит

[min@y™]

Один хрен, не врубаюсь, что ты пытаешься изобрАзить...

[Utkin]

Посмотрите на код Iron Monk. Обратите внимание, что Эдит и Батон форме не принадлежат. Ваабче не принадлежат (в секции var это четко видно). Это ровно то, о чем я писал. То есть изначально они не должны создаваться на форме, если Вы потом вдруг захотите поменять Parent. Иначе результат будет труднообъясним. Короче давайте сортируйте мухи и котлеты.

[Fantomas_RUS]

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

Надо
F.Edit1:=TEdit.Create(F);
НО, учитывая private edit1: TEdit; так написать НЕ получится. (если конечно TFormOption "как положено" находится в другом uinit относительно TForm1)
стало быть, есть еще и глобал var Edit1: TEdit; в которой и содержится созданный объект.

А

должен "ругаться" AccsessViolation (AV)

Edit присутствует в новом классе-форме в которой и пытаемся написать свойство через которое можно добраться до изменения Edita

TOptionForm = class(TForm)
private
 procedure Test3(Sender: TObject);
public
 Edit1: TEdit;
constructor CreateNew(AOwner: TCompanent); reintroduce;
end;

[come-on]

F:= TOptionForm.CreateNew(Self);
With F do
begin
Name:= 'FormOption1';
BorderStyle:= bsDialog;
Position:= poScreenCenter;
Height:= 200;
Width:= 300;
Parent:= Self;
Visible:= true;
end;

что тут такое Self ?

TOptionForm(TSpeedButton(Sender).Ow ner).Edit1.Text:= '11111';
with TOptionForm(TSpeedButton(Sender).Ow ner) do Edit1.Text:= 'dsgedgreg';

зачем тут эти выкрутасы? в контексте какого объекта работает этот метод, если OnClick:= F.test3;?

[min@y™]

unit ufMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Vcl.StdCtrls, Vcl.Buttons, Vcl.Imaging.pngimage, Vcl.ExtCtrls;

type
  TFormMain = class(TForm)
    ButtonFuckIt: TButton;
    Image1: TImage;
    procedure ButtonFuckItClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TOptionForm = class(TForm)
  private
    procedure Test3(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  public
    Edit1: TEdit;
    constructor CreateNew(AOwner: TComponent; Dummy: Integer  = 0); override;
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

{ TOptionForm }

constructor TOptionForm.CreateNew(AOwner: TComponent; Dummy: Integer  = 0);
var
  A: TSpeedButton;
begin
  inherited CreateNew(AOwner);
  DefaultMonitor:= dmPrimary;
  Position:= poScreenCenter;
  Width:= 136;
  Height:= 96;
  BorderStyle:= bsDialog;
  Caption:= 'TOptionForm';

  Edit1:= TEdit.Create(Self);
  with Edit1 do
    begin
      Parent:= Self;
      SetBounds(8, 8, Parent.ClientWidth - 16, Height);
      Text:= 'Edit1';
    end;

  A:= TSpeedButton.Create(Self);
  with A do
    begin
      Parent:= Self;
      Caption:= 'Iaiea n iocueie :)';
      SetBounds(8, Edit1.BoundsRect.Bottom + 4, Parent.ClientWidth - 16, Height);
      OnClick:= Test3;
    end;
end;

procedure TOptionForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:= caFree;
end;

procedure TOptionForm.Test3(Sender: TObject);
var
  SenderComponent: TComponent;
begin
  SenderComponent:= TComponent(Sender);
  SenderComponent.Tag:= SenderComponent.Tag + 1;
  Edit1.Text:= Format('Тыкнул %d-й раз.', [SenderComponent.Tag]);
  TSpeedButton(Sender).Caption:= 'wwwwwwwwwwwww';
end;

procedure TFormMain.ButtonFuckItClick(Sender: TObject);
begin
  with TOptionForm.CreateNew(Application) do
    begin
      OnClose:= FormClose;
      Show();
    end;
end;

end.