[Delphi] Обработка компонетов динамически созданного Frame

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by KillduetTM, 31 Dec 2012.

  1. KillduetTM

    KillduetTM New Member

    Joined:
    5 Aug 2012
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Здравствуйте дорогие формучане, спасайте – туплю :(

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


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



    Код создания фрейма:
    Code:
    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;
    
     
  2. Jingo Bo

    Jingo Bo Member

    Joined:
    25 Oct 2009
    Messages:
    368
    Likes Received:
    51
    Reputations:
    7
    Code:
    type TForm1 = class(TForm)
    ....
    public
      FFrame : TFrame11;
    end;
    
    ...
    
    procedure TForm1.N3Click(Sender: TObject);
    begin
        if Assigned(FFrame) then
          FreeAndNil(FFrame);
    
        FFrame:= TFrame11.Create(Self);
        with FFrame do
        Begin
              Align:= alClient;
              Parent := Self;
              Visible:=true;
        end;
    end;
    
    //Из формы два обращаешься
    Form1.FFrame.