Подскажите пожалуйста, как правильно создавать клоны объекта, а потом работать с каждым из них. В вопросе есть маленький пример моей проблемы...

← →
Kettle of delphi (2002-03-01 12:58) [0]

Извиняйте, я слабо в курсе, как это правильно называется, поэтому написал, без спецтерминов.

1. В проекте есть объект. Вот такой:

type TForm2 = class(TForm) ... ... ... public Str: String; end;

Этот объект является шаблоном. В дальнейшем он используется так (и не факт, что правильно!))):

Application.CreateForm(TFormClass(TForm2), CloneForm); CloneForm.Str := "A"; CloneForm.Show;

Application.CreateForm(TFormClass(TForm2), CloneForm); CloneForm.Str := "B"; CloneForm.Show;

Application.CreateForm(TFormClass(TForm2), CloneForm); CloneForm.Str := "C"; CloneForm.Show;

-----------
2. В основной форме (Form1), входящей тот же проект, есть 3 кнопки:

При нажатии на ПЕРВУЮ, в том клоне Form2,
в котором CloneForm.Str := "A", должно стать Caption := "Нажата кнопка 1";

При нажатии на ВТОРУЮ, в том клоне Form2,
в котором CloneForm.Str := "В", должно стать Caption := "Нажата кнопка 2";

При нажатии на ТРЕТЬЮ, в том клоне Form2,
в котором CloneForm.Str := "С", должно стать Caption := "Нажата кнопка 3";

-----------

Теперь вопрос:
Каким способом мне перебрать все CloneForm и смотреть в них переменную Str? При этом, хоть в примере показаны три CloneForm, реально из ЗНАЧИТЕЛЬНО БОЛЬШЕ.

Подскажите пожалуйста, как правильно создавать клоны объекта, а потом работать с каждым из них. В вопросе есть маленький пример моей проблемы... Найти похожие ветки