Работа с фреймами

Тема в разделе "Delphi - Компоненты", создана пользователем Shouldercannon, 24 сен 2016.

  1. Shouldercannon

    Shouldercannon Well-Known Member

    Регистрация:
    25 май 2010
    Сообщения:
    125
    Симпатии:
    0
    Помогите, пожалуйста, одолеть фреймы. Сколько делал подходов и никак не могу с ними совладать.
    Хочу из из какого-либо контрола Frame прочитать/записать/показать данные, но на практике это не так просто.
    Если бы
    Код (Delphi):
    procedure TFormMain.BShowClick(Sender: TObject);
    begin
    // Показать данные из frame_Settings из TEdit
      ShowMessage(FrameSettings.Edit1.Text); // Не катит
    end;
    но увы.
    Так создаю фремы и показываю их
    Код (Delphi):
    unit frm_Main;

    ...

    var
      FormMain: TFormMain;
      LastFrame: TFrame;

    implementation

    uses frame_Settings, frame_Misc;

    {$R *.dfm}

    procedure TFormMain.FormCreate(Sender: TObject);
    begin
      // Создаём список фреймов
      with ListBox1 do
      begin
        AddItem('Настройки', TFrameSettings.Create(ListBox1));
        AddItem('Разное', TFrameMisc.Create(ListBox1));
      end;

      LastFrame := nil;
    end;

    procedure TFormMain.ListBox1Click(Sender: TObject);
    begin
      // Активируем из списка нужный фрейм
      if LastFrame <> nil then LastFrame.Visible := False;

      with TListBox(Sender) do
      begin
        LastFrame := TFrame(Items.Objects[ItemIndex]);
        LastFrame.Align := alClient;
        LastFrame.Parent := Panel1;
        LastFrame.Visible := True;
      end;
    end;

    procedure TFormMain.BReadClick(Sender: TObject);
    begin
    // Прочитать данные из frame_Settings из TEdit
    end;

    procedure TFormMain.BWriteClick(Sender: TObject);
    begin
    // Записать данные из frame_Settings из TEdit
    end;

    procedure TFormMain.BShowClick(Sender: TObject);
    begin
    // Показать данные из frame_Settings из TEdit
      ShowMessage(FrameSettings.Edit1.Text); // Не катит
    end;

    end.
     

    Вложения:

    • Frames.zip
      Размер файла:
      15,6 КБ
      Просмотров:
      0
  2. WebWare Team

    WebWare Team Администратор
    Команда форума

    Регистрация:
    30 дек 2015
    Сообщения:
    213
    Симпатии:
    101
     
  3. WebWare Team

    WebWare Team Администратор
    Команда форума

    Регистрация:
    30 дек 2015
    Сообщения:
    213
    Симпатии:
    101
     
  4. WebWare Team

    WebWare Team Администратор
    Команда форума

    Регистрация:
    30 дек 2015
    Сообщения:
    213
    Симпатии:
    101
     
Загрузка...
Похожие Темы - Работа фреймами
  1. Andrey Kha
    Ответов:
    0
    Просмотров:
    33
  2. Hoasker
    Ответов:
    0
    Просмотров:
    65
  3. garri671
    Ответов:
    0
    Просмотров:
    74
  4. lelik200969
    Ответов:
    0
    Просмотров:
    55
  5. Kozolick
    Ответов:
    0
    Просмотров:
    146

Поделиться этой страницей