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

[Fantomas_RUS]

Сообщение от come-on

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

Это просто тест, чтоб визуально увидеть изменения. Self -> вызвавший объект Form1. В контексте F.OnClick

[come-on]

При чем тут тест?
для чего пихать туда Form1? вы понимаете за что это отвечает?

и выбросит весь код надо, как уже не раз тут советовали

[Fantomas_RUS]

Сообщение от 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.

Tag не подходит, так как нужно передавать/изменять данные другого типа, например string

[min@y™]

Tag не подходит, так как нужно передавать/изменять данные другого типа, например string

Tag я приплёл для примера только. Если

нужно передавать/изменять данные другого типа, например string

- передавай/изменяй, кто ж запрещает?

[Utkin]

Tag не подходит, так как нужно передавать/изменять данные другого типа, например string

Ну Вы же теперь ас в ООП после данного примера. Унаследуйте новую форму в которой Tag будет строкой.

ЗЫ

Рязань, 13-й ленинский тупик, д. 13, кв. 13, звонить 8 раз

А почему звонить только 8 раз? Вселеннское равновесие нарушено.

[Аватар]

А почему звонить только 8 раз

Это пароль, что звонит чувак именно с программерсфорума. Не?

[Fantomas_RUS]

Сообщение от come-on

При чем тут тест?
для чего пихать туда Form1? вы понимаете за что это отвечает?

и выбросит весь код надо, как уже не раз тут советовали

Что сложного то понять.
Создана автоматически делфой форма. На неё кинута кнопка. В событие (TForm1.BitBtn1Click)OnClick этой кнопке создается переменная TOptionForm -> F. Далее после создание объекта в этом же обработчике (TForm1.BitBtn1Click) происходит показ новой формы F. На этой форме есть кнопка и Edit. При нажатии на кнопку, расположенную на форме F, должны данные записаться в Edit расположенный также на форме F. Прикладываю не готовый проект. По нажатию на "шестеренку" и выскакивает нужная форма F

[min@y™]

А почему звонить только 8 раз? Вселеннское равновесие нарушено.

Это пароль, что звонит чувак именно с программерсфорума. Не?

Шоб никто не догадался!

[come-on]

Что сложного то понять.

Что вы делаете понятно было сразу.
не понятно почему через зад, также зачем вы при создании формы ей self пихаете, и еще зачем для изменения свойств поля формы делаете выкрутасы с сендерами и овмерами.

[Fantomas_RUS]

Сообщение от come-on

Что вы делаете понятно было сразу.
не понятно почему через зад, также зачем вы при создании формы ей self пихаете, и еще зачем для изменения свойств поля формы делаете выкрутасы с сендерами и овмерами.

Извините. Дело в том, что в моём проекте я попытался прямо указать изменение Edit1. Но тогда выскакивает ошибка, что делфи не понятно, а каком Edit идёт речь.
Поэтому я и попросил, как правильно выполнить это. Если есть статья, то прочту обязательно. Пользовался этой https://rsdn.ru/article/delphi/Handlers.xml но так и не понял до конца.