Delphi - создание элементов управления перед запуском формы Create?

Как упоминал Тобиас (но выступает против), вы можете изменить порядок создания (прямо в форме при изменении порядка создания).

Но вы также можете в методе установки проверить, создается ли форма (csCreating в form.componentstate). И если это так, вы должны сами сохранить это значение свойства и обработать его в AfterConstruction.

Судя по вашему комментарию, вы получаете AV при его размещении во время разработки, это означает, что есть проблема с самим элементом управления, и он не был должным образом перенесен вперед. Чтобы воспроизвести его во время выполнения в контролируемых условиях, вам нужно написать небольшую программу, подобную этой:

Создайте новое приложение VCL с единой формой. Поместите TButton в форму. На кнопке OnClick сделайте что-то вроде этого:

var
   newButton: TLMDButton;
begin
   newButton := TLMDButton.Create(self);
   newButton.Parent := self;
   //assign any other properties you'd like here
end;

Поместите точку останова в конструктор и проследите за ним, пока не найдете причину нарушения прав доступа.

РЕДАКТИРОВАТЬ: Хорошо, глядя на комментарии, я думаю, что мы нашли вашу проблему!

Субэлементы управления формы инициализируются чтением файла DFM. Когда вы изменили свой элемент управления на TCustomForm, вы предоставили новый DFM для его определения? Если нет, вам нужно переопределить конструктор формы и создать элементы управления и определить их свойства вручную. Нет никакой «магии», которая инициализирует его за вас.

Ваш Create всегда вызывается первым, перед конструктором-предком. Так работают конструкторы. Вы должны иметь возможность вызвать унаследованный конструктор, прежде чем выполнять остальную часть инициализации:

constructor MyForm.Create(Owner: TComponent);
begin
  inherited;
  EnGrpSndOption := False;
end;

Однако есть лучший способ указать, что именно вы пытаетесь сделать. Ваш класс загружает свойства из ресурса DFM. По завершении он вызовет виртуальный метод с именем Loaded. Обычно он используется для уведомления всех дочерних элементов о том, что все готово, поэтому, если кто-либо из них содержит ссылки на других дочерних элементов в форме, они знают, что использовать эти ссылки в этот момент безопасно. Вы также можете переопределить его в форме.

procedure MyForm.Loaded;
begin
  inherited;
  EnGrpSndOption := False;
end;

Однако в вашем случае это, как правило, не должно иметь большого значения. Loaded вызывается из конструктора сразу после завершения загрузки формы из ресурса DFM. Этот ресурс сообщает форме все элементы управления, которые она должна создать для себя. Если ваша кнопка не создается, возможно, она неправильно указана в DFM. В DFM могут быть перечислены элементы управления, не имеющие соответствующих полей в классе. С другой стороны, если есть опубликованное поле, для которого нет соответствующей записи в DFM, среда IDE должна предупреждать вас об этом и предлагать удалять объявление каждый раз, когда вы вызываете его в конструкторе форм. Просмотрите DFM как текст и убедитесь, что действительно существует запись для элемента управления с именем btGrpSnd.

Достаточно ли этого хорошо, чтобы вы начали:

если назначено (btGrpSnd) и btGrpSnd.HandleAllocated, то btGrpSnd.Visible: = ...

Я вижу 2 возможности: проверьте, равно ли btGrpSnd нулю, прежде чем присваивать Value свойству Visible. Если это ноль, вы можете:

• не устанавливать свойство
• создать btGrpSnd

Я бы не стал возиться с порядком создания. Это более сложно и может сломаться при дальнейших изменениях.

из вашего комментария: вы можете проверить, находитесь ли вы в режиме разработки или в режиме выполнения. Перед настройкой видимости проверьте, находитесь ли вы в расчетном режиме.

if not (csDesigning in Componentstate) then
begin
  btGrpSnd:=Value;
end;

Ответ на ваш комментарий:

пойти на это:

procedure Myform.SetGrpSndOption(const Value: boolean); 
begin 
  fEnGrpSndOption := Value; 
  if btGrpSnd<>nil then btGrpSnd.Visible := Value; 
end; 

и один дополнительный параметр свойства btGrpSnd. Если установлено значение ‹> nil, также установите видимость, сохраненную в fEnGrpSndOption.

Если нет необходимости устанавливать btGrpSnd вне Myform, создайте процедуру инициализации, которая создает все. Например.:

constructor Myform.Create(...)
begin
  init;
end;

procedure init
begin
  btGrpSnd:=TButton.Create;
  ...
end;

procedure Myform.SetGrpSndOption(const Value: boolean); 
begin 
 fEnGrpSndOption := Value; 
 if btGrpSnd<>nil then init;
 btGrpSnd.Visible := Value; 
end; 

Это все еще лучше, чем в зависимости от некоторого измененного кода инициализации, который может сломаться в будущем.