[Killduettm]

Всех с наступающим!
Дорогие формучане, спасайте – туплю

Есть "форма1", на ней динамически создаётся фрейм, и есть "форма2". Как из "форма2" воздействовать обьекты в фрейме?

Суть: в «форма2» в Edit вводиться строка, и её нужно добавить в Listbox который находиться в фрейме.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   f: Tframe;     procedure TForm1.N3Click(Sender: TObject); begin if f<>nil then begin  FreeAndNil(f); end;      f:=TFrame11.Create(nil);    f.Align:=alClient;    f.Parent:=Form1;    f.Visible:=true; end;

[lmikle]

Вызывать форму 2 прямо из фрейма. Причем, я бы сделал так, что бы форма просто возвращала строку, а добавлял бы строку сам фрейм.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

// TForm2, Просто пример function TForm2.Execute : String; begin   ShowModal;   Result := Edit1.Text; end;   // TFrame1 procedure TFrame1.Button1Click(Sender : TObject); begin   ListBox1.Items.Add(Form2.Execute); end;

[Killduettm]

Спасибо за решение, но:

Ошибка:
does not contain a member named 'Execute'
-Юзаю Embarcadero RAD Studio XE2

[angvelem]

Нужно добавить эту функцию в секцию public формы.

[Killduettm]

Извените за конкретную тупость:
Form1

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

unit Unit1;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;     f: Tframe; implementation   {$R *.dfm}   uses Unit2;   procedure TForm1.Button1Click(Sender: TObject); begin if f<>nil then begin  FreeAndNil(f); end; f:=TFrame2.Create(nil); f.Align:=alClient; f.Parent:=Form1; f.Visible:=true; end;   end.

Frame2

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

unit Unit2;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,   Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;   type   TFrame2 = class(TFrame)     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     end;   implementation   {$R *.dfm}   uses Unit3;       procedure TFrame2.Button1Click(Sender: TObject); begin Edit1.text:=Form3.Execute; end;   end.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

unit Unit3;   interface   uses   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;   type   TForm3 = class(TForm)     Button1: TButton;     Edit1: TEdit;   private     { Private declarations }   public     function TForm3.Execute : String;   end;   var   Form3: TForm3;   implementation   {$R *.dfm}   function TForm3.Execute(): String; begin   ShowModal;   Result := Edit1.Text; end;   end.

По прежнему ошибка does not contain a member named 'Execute'

[angvelem]

В полях формы не пишется указание на саму форму

Код:

1 2 3 4 5

...   public     function Execute : String;   end; ...

[Killduettm]

Ребята, спасибо огромное! Всё заработало!