[Помидоркин]

А может быть и не формы, наткнулся на идею создания компонента вне формы, поискал, но кроме самой идеи ничего не нашел.
Собсвенно задача: написать программу по-типу "Записок" в Win7 т.е. с возможностью открытия множесва окон (немодально), с перетаскиванием по рабочему столу и произвольным закрытием отдельных окон, но с главным окном из которого (и только из него) открывется произвольное количество окон, которые уничтожаются при закрытии приложения (последнее понятно Owner:= Form1, ну или как-то так).
Можно по-другому сформулировать: MDI приложение где у главного окна только меню, а дочерние открываются вне родительской формы.
Третий вариант самодельный класс наследник, например, TWinControl, вне главной формы, но по-моему это гемморойный вариант.
Вобщем вот набросок:

Код:

unit MineForms;
------------
 type
   TCmbMetters = class(TComboBox)
   public
    constructor Create(AOwner: TComponent); override;
   end;

   TFrmProfile = class(TForm)
    CmbMetters: TCmbMetters;
   public
    constructor Create(AOwner: TComponent); override;
   end;

implementation

constructor TCmbMetters.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Parent:=  AOwner as TForm;
 Width:= 200;
 Text:= '-Выберете материал-';
 with Items do
 begin
  Append('Сталь');
  Append('Нержавейка');
  Append('Д16');
 end;

end;

constructor TFrmProfile.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 CmbMetters:= TCmbMetters.Create(Self); 
end;
end.

Код:

unit Unit1;
-------------------
 type
    TForm1 = class(TForm)
     Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var F: TFrmProfile;
begin
 F:= TFrmProfile.Create(Application);
end;

end.

ругается, хочет ресурсов: "... EResNotFound ... 'Resource not found' ..."
Да! Важно - динамические окна нужны сами по-себе, ни какие данные из них, ни в главное ни в дочение окна не передаются.

[Помидоркин]

Спасибо всем ответившим
проблемму решил сам: то что надо использовать CreateNew я уже выяснил, а вот то что перекрывать нужно соответствующий конструктор долго не мог сообразить
Тем не менее еще один вопрос: Как уничтожить динамическое окно при закрытии?

[Alegun]

Вот как ответить на поставленный вопрос без кода ^) ?, - при выходе (ондестрой) выполнить - хендл(который был CreateNew...).Free/Destroy... КЭП

[Помидоркин]

Сообщение от Alegun

Вот как ответить на поставленный вопрос без кода ^) ?

Почему без кода? Код все тот-же.

Сообщение от Alegun

,при выходе (ондестрой) выполнить - хендл(который был CreateNew...)Free/Destroy... КЭП

а вот тут я в конец запутался

хендл.Free/Destroy

Free/Destroy - это методы класса, хендл - свойство компонента у которого, как я понимаю ни свойств, ни методов, нет.
ОнДестрой - свойство, типа - событие, когда событие возникает вызывается соответствующий метод, в данном случае destructor Destroy; , вызывать в обработчике сам обработчик как то неправильно.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var F: TFrmProfile;
begin
 F:= TFrmProfile.CreateNew(Application);
 F.Show;
 Label1.Caption:= IntToStr(Application.ComponentCount);
end;

создаю несколько форм, закрываю, создаю еще, колличество компонентов только прибавляется, судя по всему при закрытии формы, форма не разрушается..........
вобщем дальше ничё непонимаю

[icWasya]

назначить обработчик OnCloseQuery, а в нём Action:=caFree;

[Alegun]

Сообщение от Помидоркин

...Free/Destroy - это методы класса, хендл - свойство компонента у которого, как я понимаю ни свойств, ни методов, нет...

Здесь честно ничего не понимаю, для меня это - китайская грамота только делаю всё по принципу - породил объект самостоятельно, тогда если он уже не нужен его надо грохнуть свойством .Free или .Destroy, а самое интересное, если парент у объекта TForm (сиречь Application), то тогда вообще можно его и не уничтожать самому, сборка сделает это при выходе автоматом

[Помидоркин]

Сообщение от Alegun

...если парент у объекта TForm (сиречь Application)...

Только не парент, а овнер. Парент - родитель, предоставляет свою канву для отрисовки, а овнер - хозяин, отвечает за уничтожение объектов ему принадлежащих, если я создал объект и назначил ему овнера, то вот пусть овнер с ним и разбирается
Вобщем надо смотреть событие OnClose.