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.

Това достатъчно добро ли е, за да тръгнете:

if Assigned(btGrpSnd) and btGrpSnd.HandleAllocated then btGrpSnd.Visible := ...

Виждам 2 възможности: проверете дали btGrpSnd е нула, преди да присвоите стойност на свойството 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. Ако е зададена стойност ‹> нула, задайте и видимостта, защитена в fEnGrpSndOption.

Ако няма нужда да задавате btGrpSnd извън Myform, създайте init-процедура, която създава всичко. напр.:

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; 

Това все още е по-добре, отколкото в зависимост от някои променени init-code-hack, които може да се повредят в бъдеще.