Паскаль передает список из основной формы в немодальную форму

Самым простым и лучшим способом было бы добавить метод в принимающую форму, то есть форму с ListView, которая говорит «AddThingsToListView», и принять то, что вы хотите добавить (вероятно, TListItem?)

Таким образом, вы можете позвонить

MyMainForm.AddThingsToListView(ANewListItem);

откуда угодно.

Другими словами, не передавайте представление списка в немодальную форму; вместо этого сделайте так, чтобы основная форма могла принимать дополнения к своему списковому представлению.

Примечание. Вопрос изначально был помечен как Delphi. Я не знаком с FPC/Lazarus, поэтому некоторые детали ниже могут быть неточными, но концепции по-прежнему действительны.

Я предполагаю, что у вас есть глобальная переменная, представляющая основную форму, названную MainForm ради аргумента. Самый быстрый и простой подход — просто использовать MainForm.ListView, чтобы ваша другая форма ссылалась на представление списка основной формы.

Мне не очень нравится этот подход, поскольку он означает, что другая форма зависит от реализации основной формы.

В качестве альтернативы вы можете передать ссылку на представление списка в другую форму. Например, вы можете добавить процедуру SetListView в другую форму:

type
  TMyOtherForm = class(TForm)
  private
    FListView: TListView;
  public
    procedure SetListView(Value: TListView);
  end;
.....
procedure TMyOtherForm.SetListView(Value: TListView);
begin
  FListView := Value;
end;

Затем в основной форме, возможно, в обработчике событий OnCreate для основной формы, вы можете вызвать этот метод:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  MyOtherForm.SetListView(ListView);
end;

Это на самом деле не намного лучше, чем первое предложение. Другая форма по-прежнему зависит от реализации основной формы, хотя, возможно, в меньшей степени.

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

procedure TMainForm.AddToList(const Name: sting; const Time: TDateTime);
var
  Item: TListItem;
begin
  Item := ListView.Items.Add;
  Item.Caption := Name;
  Item.SubItems.Add(DateTimeToStr(Time));
end;

В вашем другом блоке форм вы добавляете основной блок формы в предложение использования в разделе реализации. Это позволяет вам получить доступ к глобальной переменной MainForm, и вы можете вызвать

MainForm.AddToList(Name, Time);

Этот подход, на мой взгляд, является лучшим, потому что он позволяет основной форме сохранять свою реализацию списка приватной для себя.

Вы заявляете в комментарии, что хотите избежать любых циклических ссылок из-за предложений uses. Это легко организовать, поскольку ни одно из вышеперечисленных не требует изменений в предложении uses из раздела интерфейса из двух рассматриваемых модулей.

Что я делаю: для такого рода ситуаций: я обычно объявляю модуль данных и помещаю большую часть кода, который не вписывается в библиотечные модули без графического интерфейса пользователя, в модуль данных. Модуль данных может ссылаться на формы и наоборот, но ни одна из форм не ссылается друг на друга.

В этом примере ваша форма Form2 может использовать DataModule, и вы можете сделать следующее:

1. Имейте глобальную ссылку на ListView MainForm в модуле данных и используйте ее из своей формы.
2. Имейте функцию/класс в модуле данных, который позволяет вам обновлять список и вызывать его из вашей формы.

В любом случае, ваша форма должна знать только о модуле данных, а модуль данных сделает все остальное. Вы можете добавлять/удалять/изменять формы, и обычно вам нужно только обновить DM.