Параметр конструктора

[Voody]

У компонента имеется конструктор:

constructor TNekiyComponent.Create(AOwner: TComponent);
begin
...

Не могу понять, какой аргумент надо передать конструктору для корректного создания компонента.

nil ставил - EAccessViolation

[mihali4]

Свойство Owner указывает на компонент, который является владельцем данного компонента. Если компонент является владельцем других компонентов, то при своем уничтожении он уничтожит все те компоненты, владельцами которых он является. У каждого компонента есть свойство Components - массив, в котором хранятся ссылки на все компоненты, владельцем которых является данный компонент.
С другой стороны, компонент может быть уничтожен сам по себе. Тогда было бы неплохо, если бы он сообщил об этом своему владельцу. Вот для установления этой обратной связи и вводится свойство Owner.
Как вы понимаете, сам по себе компонент существовать не может, поэтому NIL в качестве владельца и вызывает исключительную ситуацию.

[s.Creator]

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

...
Как вы понимаете, сам по себе компонент существовать не может, поэтому NIL в качестве владельца и вызывает исключительную ситуацию.

Как это не может?

  form := TEditNameDlg.Create(nil);
  try
    if form.ShowModal = mrOk then
      //...
  finally
    form.Free;
  end;

Все время работало - а форма это тоже компонент.
Сейчас еще попробовал

  F1Book1 := TF1Book.Create(nil);
  try
    F1Book1.Width := 100;
  finally
    F1Book1.Free;
  end;

Никакой ошибки не выдало. хотя помню что без парента и отображения с ним есть проблемы при дальнейшей работе связанные с инициализацией TOleControl. Вероятнее все таки здесь что-то конкретное или конкретный компонент.

[mihali4]

Сообщение от s.Creator

Как это не может?

Получили удовлетворение от того, что я не упомянул "кроме формы"?
Ну и славно.
А попробуйте-ка таким же образом Button создать...
И чтобы он вывелся на экран и на него можно было нажать. Ну, допустим, для "закрытия"...
Вырванными из контекста кусками кода очень удобно оперировать.

[s.Creator]

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

Получили удовлетворение от того, что я не упомянул "кроме формы"?
Ну и славно.
А попробуйте-ка таким же образом Button создать...
И чтобы он вывелся на экран и на него можно было нажать. Ну, допустим, для "закрытия"...
Вырванными из контекста кусками кода очень удобно оперировать.

Ну если у Вас не получается попробуйте:

unit UTestMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
  
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    bt: TButton;
    procedure FormBtClose(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormBtClose(Sender: TObject);
begin
  Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bt := TButton.Create(nil);
  bt.Parent := Self;
  bt.Caption := 'Close Form';
  bt.OnClick := FormBtClose;
  bt.Visible := True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bt.Free;
end;

end.

или откройте прикрепленный проект.
Или Вы получаете удовлетворение от голословных утверждений?

[mihali4]

Вы меня не поняли.
Я предлагал создать баттон без использования формы... Голый, так сказать... Только баттон и больше ничего.
Но

чтобы он вывелся на экран и на него можно было нажать. Ну, допустим, для "закрытия"...

[s.Creator]

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

...
Я предлагал создать баттон без использования формы... Голый, так сказать... Только баттон и больше ничего. ...

Извиняюсь, Я думал что в этой теме обсуждается AV при использовании nil в конструкторе компонента.

NIL в качестве владельца и вызывает исключительную ситуацию.