Что-то не получается с owner

[Vesyolyi]

Вообщем что имеем, нужно создать дочерную форму в unit создаваемой формы написал так:

Код: Выделить всё

unit usereditunit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls ;

type

  { TUserEditForm }

  TUserEditForm = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  UserEditForm: TUserEditForm = nil;

procedure ShowUserEditForm(Owner: TComponent) ;
implementation

procedure ShowUserEditForm(Owner: TComponent) ;
begin
  if not Assigned(UserEditForm) then
    UserEditForm:=TUserEditForm.Create(Owner);
  UserEditForm.Show;
  UserEditForm.SetFocus;
end;                                                                           


Видно что процедура

Код: Выделить всё

ShowUserEditForm(Owner: TComponent) ;

создает форму, вот только когда вызываю её из другой:

Код: Выделить всё

procedure TUsersForm.userNewExecute(Sender: TObject);
begin
  ShowUserEditForm(self);
end; 


почему-то владелец не передается, т.е. если вывести название владельца, то сообщение пустое

Код: Выделить всё

showmessage(UserEditForm.Owner.Name ) ; 

а вот если из главной формы создавать так:

Код: Выделить всё

procedure TUsersForm.userNewExecute(Sender: TObject);
begin
  UserEditForm:=TUserEditForm.Create(self) ;
  UserEditForm.Show;
  UserEditForm.SetFocus;
end;       


то с владельцем все нормально.

Код: Выделить всё

showmessage(UserEditForm.Owner.Name ) ;

возвращает название владельца - UsersForm

Вопрос, что я делаю не так????

[Attid]

Вопрос, что я делаю не так????

не офрмляешь код в тег [code ]

[Vesyolyi]

Сам себе и отвечаю, забыл её убрать из autocreate