IMHO.WS - Клонирование формы в Delphi

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - Клонирование формы в Delphi (https://www.imho.ws/showthread.php?t=96318)

apoc	22.11.2005 18:35

Клонирование формы в Delphi

Есть такое дело.
Есть форма, которую я хочу несколько раз показать в рантайме, тоесть ее только в 4-ех экземплярах.
Сгенерить их мне удалось:

Код:

   Events := TUniversal.Create(Self);

   Events.Name := 'Events';

   Tasks := TUniversal.Create(Self);

   Tasks.Name := 'Tasks';

И как бы даже удаеться обращаться к ним по имени.... вот только
при закрытии программы если я создавал больше одного клона... то выдается ошибка... Думал-думал, не могу понять почему... видать вся проблемма во мне... :) но все же может кто подскажет.
Пасибо...

dyr_farot

22.11.2005 18:57

а память ты где-то освобождаеш?
+ на OnClose / OnCloseQuery ничего не прописанно?

apoc	22.11.2005 18:59

Освобождаю, вот как раз дошел до FormDestroy:

Код:

  BmpSkinTop.Destroy;

  BmpSkinBot.Destroy;

скорее всего это оно и есть :)

dyr_farot

22.11.2005 19:02

эсли это расшаренные переменные -- таки оно...

apoc	22.11.2005 19:04

ну это вообщем для этого юнита что и форма:
BmpSkinTop, BmpSkinBot: TBitmap;

токо я незнаю как их теперь высвободить... :(((
или мож и не стоит... :)

dyr_farot

22.11.2005 19:10

если ты их не создаеш ( Create() ) то и освобождать не нужно

apoc	22.11.2005 19:13

Да но они мне нужны... :) я их юзаю :) шутник однако

dyr_farot

22.11.2005 19:16

а при чем тут удаление к использованию?
нужны -- используй...

apoc	22.11.2005 19:20

Ладно, вообщем то что надо было я уже решил, пасибки... :) Голос от меня...

Cage	23.11.2005 01:11

В процедуре на OnClose динамически создаваемых форм не забудь Action:=caFree;. Наппример:

Код:

procedure TfrmImage.FormClose(Sender: TObject; var Action: TCloseAction);

begin

    Action:=caFree;

{

    очистка всего, чего надо.

}

end;

apoc	23.11.2005 10:56

Вот как раз когда это я добавил - все и сломалось :))))

Часовой пояс GMT +4, время: 10:35.