VPF::Не могу найти форму - Форум программистов

Budy

Дата 21.4.2005, 20:52 (ссылка)

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

Загрузка ...

Опытный

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

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

:Приветсвую
Вот есть у меня две формы со дефолтными именами (Form1 и Form2). На Form1 кидаю кнопку, при нажатии на кнопку создаю форму, подобную Form2:

Код


procedure TForm1.Button1Click();
var
  BF: TForm2;
begin
  Inc(Count);
  BF:=TForm2.Create(nil);
  BF.Name:='BF'+IntToStr(Count);
  BF.Show;
end;

На Form1 есть еще кнопка, при нажатии на которую надо вывести мессагу, в которой указать сколько существует таких BF-форм. Пробую так:

Код


procedure TForm1.Button2Click();
var
  Comp: TComponent;
  I,A: Integer;
begin
  A:=0;
  For I:=1 to Count do
    begin
      Comp:=FindComponent('BF'+IntToStr(I))as TForm2;
      if not(Comp=nil) then Inc(A);
    end;
  ShowMessage(IntToStr(A));
end;

Дык вот все время 0 показывает.

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Pakshin A. S.

Дата 21.4.2005, 21:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


BF:=TForm2.Create(self);

Dimannn

Дата 21.4.2005, 21:07 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

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

Дело в том, что ты не делаешь при закрытии формы что-то типа

Код


FindComponent(BG+Inttostr(FormNumber)) as TForm2).Free;

Поэтому Formы постоянно висят в памяти и их (хотя и закрытых) находит FindComponent.

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

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

Budy

Дата 25.4.2005, 06:23 (ссылка)

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

Загрузка ...

Опытный

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

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

Pakshin A. S., точно, thanks

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

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