VPF::Клоны с одинаковыми Name - Форум программистов

sanek198

Дата 1.3.2009, 20:29 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.7.2007

Репутация: нет
Всего: нет

В ходе работы программы создаются клоны формы TestForm. Delphi клоны автоматически называет TestForm_1, TestForm_2 и т.д. Мне же нужно чтобы все клоны имели Name:=TestForm. При одинаковых Name ошибок не возникает, все работает, но есть сомнения можно ли так делать?

Akella

Дата 1.3.2009, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Лучше так не делать. Сам потом запутаешься.

Poseidon

Дата 1.3.2009, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(sanek198 @ 1.3.2009, 20:29

)

Мне же нужно чтобы все клоны имели Name:=TestForm

Зачем?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

sanek198

Дата 1.3.2009, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 28.7.2007

Репутация: нет
Всего: нет

На клон клонировалась (извините за тавтологию) кнопка с другой формы, к примеру MainForm. Если кнопка на MainForm, действие одно, а если Parent кнопки клон, то другое. Но вообще, сейчас я определяю Parenta по ClassName. Так что вопрос снят. Спасибо!

P.S. А все-таки можно ли создавать клоны с одинаковыми именами?

Akella

Дата 1.3.2009, 22:32 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Убери из модуля
Var
fmMain: TfmMain; <-это (объявление имени формы)

А форму можно вызывать так

перед implementation объявляем процедуру создания и вызова окна

Код


...
  procedure CallEditApart(ID:integer;AEditMode:Boolean;iBaseType:Integer);

implementation

...

procedure CallEditApart(ID:integer;AEditMode:Boolean;iBaseType:Integer);
Const
 aSQL = 'select id, Name from types where id = :id';
//Var
// vName:variant;
begin
  with TfmApartAdd.Create(Application) do begin
    можно что-то сделать перед показом формы

    Show;
  end;//with

затем просто вызываем

Код


procedure TfmMain.actApartAddExecute(Sender: TObject);
begin
  CallEditApart(-1, False, -1);//False - это добавление
end;

можно вызывать хоть сотню раз

не забудь в событии FormClose вызвать Action := caFree;

Это сообщение отредактировал(а) Akella - 1.3.2009, 22:33

Bose

Дата 1.3.2009, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

Цитата(sanek198 @ 1.3.2009, 21:13

)

А все-таки можно ли создавать клоны с одинаковыми именами?

И да и нет.
Т.е. у тебя может быть кнопка с одним и тем же именем на разных формах. А на одной форме - нет(одновременно).
Также, в приложении не могут быть открыты 2 формы с одинаковым именем.

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »