Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Динамическое создание формы в DLL 
Author Message
Моторокер



PostPosted: Wed Jun 06, 2007 09:55    Post subject: Динамическое создание формы в DLL Reply with quote

Подскажите, как надо правильно создавать модальную форму?
Раньше делал так:
Code:
var
  fmSetup: TfmSetup;
begin
  fmSetup:= TfmSetup.Create(nil);
  fmSetup.ShowModal;
  fmSetup.Free;

Сделал nil, т.к. на Delphi ругалась на незнание Self
Затем вычитал про необходимость использования Release вместо Free – якобы ждёт, когда все потоки отработают, вся память освободится:
Code:
var
  fmSetup: TfmSetup;
begin
  fmSetup:= TfmSetup.Create(nil);
  fmSetup.ShowModal;
  fmSetup.Release;

в Тотале всё работает, а PlugMan вылетает с ошибкой
Подключил модуль Forms, добавил Application в Create:
Code:
var
  fmSetup: TfmSetup;
begin
  fmSetup:= TfmSetup.Create(Application);
  fmSetup.ShowModal;
  fmSetup.Free;

Вроде бы работает.
Так как надо делать правильно?
_________________
плагины для Total Commander, статьи Graphics Converter; NSCopy; SEO HTML; KillOK; Плагин на Delphi
ПармаСруб - строительство домов и бань в Перми
View user's profile Send private message Send e-mail Visit poster's website ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group