Как принудительно создать еще один экземпляр формы?

[x11]

Есть обычная мобильная форма.

function fmmFindPhone: TfmmFindPhone;

...
implementation
...
function fmmFindPhone: TfmmFindPhone;
begin
  Result := TfmmFindPhone(UniMainModule.GetFormInstance(TfmmFindPhone));
end;

 

и если вызвать ее:

fmmFindPhone.Telephone := '7770555';

fmmFindPhone.show;

 

и потом не закрывать ее, а потом еще раз попытаться вызвать где-то из другой формы:

fmmFindPhone.Telephone := '5550333';

fmmFindPhone.show;

то второй экземпляр формы НЕ будет показан

 

Что можно предпринять без больших переделок кода?

Спасибо.

 

 

 

[Sherzod]

6 hours ago, x11 said:

то второй экземпляр формы НЕ будет показан

Добрый вечер,

Но, Вы же не создаете второй экземпляр формы.

[x11]

Добрый вечере.

В том-то и вопрос: как? Как правильно?

[Sherzod]

Если я правильно понимаю Ваш случай, то Вы должны создать еще один экземпляр формы.

[x11]

Я наверное вас не понимаю. Что это значит?

[Sherzod]

2 minutes ago, x11 said:

Я наверное вас не понимаю. Что это значит?

Создать еще один экземпляр формы.

[x11]

Вы имеете ввиду в дизайне?

 

[x11]

5 minutes ago, Sherzod said:

Создать еще один экземпляр формы.

А если нужно создавать и открыть во время работы программы 3-5-10 экземпляров одной и той же формы?

[Sherzod]

3 minutes ago, x11 said:

Вы имеете ввиду в дизайне?

Ну, динамически создавать экземпляры формы, сколько Вам необходимо. 

[x11]

Можно пример? Извините, боюсь, я не до конца Вас понимаю

[x11]

Я знаю что можно убрать функцию function fmmFindPhone: TfmmFindPhone; и заменить ее на
 

var

fmmFindPhone: TfmmFindPhone;

begin

  fmmFindPhone := TfmmFindPhone.create(uniappliction);

Вы это имеете ввиду или то-то другое?

 

[Sherzod]

Just now, x11 said:

TfmmFindPhone.create(uniappliction)

with TfmmFindPhone.Create(UniApplication) do

[x11]

Ясно, я так и предполагал, но подумал, а вдруг есть еще способ.

Спасибо.