Программа-окно без конструктора форм

[Kronos913]

За последние пару лет я наловчился создавать большую часть элементов управления из программы через TButton.Create(self); TEdit.Create(self); TPanel.Create(self) и т.д.
И даже сделал себе много функций для того чтобы это делать быстрее

И на данный момент в большой многофункциональной программе, 90% элементов создаются изнутри. Некоторые при запуски, а некоторые - когда понадобятся (программа то многофункциональная и не всегда надо сразу всё).

Очень удобно то что можно прописывать их массивами

Buts1: array [0..20] of TButton;

И даже дополнительные окна (а их много) создаются при помощи TForm.Create

И вот на этом моменте у меня возник вопрос: а можно ли при создании программы обойтись вообще без конструктора формы? То есть, создать основное окно через TFrom.Create а дальше запустить программу в стандартном режиме реакций на действия (нажатия на кнопки и т.д.)

То есть, по сути, создать точно такую же по функционалу программу, но у которой ВСЁ, включая основную форму, создано кодом

[p51x]

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

а можно ли при создании программы обойтись вообще без конструктора формы?

Можно. Можно даже без формы вообще.

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

То есть, создать основное окно через TFrom.Create а дальше запустить программу в стандартном режиме реакций на действия (нажатия на кнопки и т.д.)

А вы думаете делфя делает какую-то магию?

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

То есть, по сути, создать точно такую же по функционалу программу, но у которой ВСЁ, включая основную форму, создано кодом

Таки что вас останавливает?

[NetSpace]

создание формы на чистом WinAPI хотите?
вот тут в четвёртом комментарии архив приложен - там создаётся форма в виде кучи кнопок без TForm1 и привычных вам трёх кнопок в верхнем правом углу.
https://www.programmersforum.ru/showthread.php?t=346894
----------
ну, в чистом бассейне покупались, теперь ныряйте в мутный омут с головой... добро жопаловать, как говорится (да, тут печаток нет)

[Arigato]

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

а можно ли при создании программы обойтись вообще без конструктора формы?

Конструктор форм это удобный инструмент, ускоряющий разработку. Хотите минимизировать размер ЕХЕ и не использовать конструктор, тогда зачем вам вообще VCL? Пишите на чистом WinAPI.

[phomm]

Kronos913,
Удаляете .dfm-файл и директиву {$R *.dfm} из модуля формы (а также, в зависимости от наличия компонентов на конструированной форме, их надо удалить из полей класса формы), и у вас не будет конструктора, но при этом создание пустой формы будет работать как обычно (оно прописано в dpr)

Пы.Сы. если я ничего не путаю, конечно, давно уже не колдовал на формах. Однако, это не уменьшит на какой либо существенный объём экзешку, как и 95% остальных обсуждаемых Вами методов, Вы только придумываете сложности на ровном месте. Динамические интерфейсы это нормально, когда их нужно собирать именно динамически под разные задачи, а вот если задача известна, то наоброт проще создать форму визуально собрав интерфейс, а не ручками в коде

[Vapaamies]

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

И даже дополнительные окна (а их много) создаются при помощи TForm.Create

Технически форму нужно создать через TApplication.CreateForm, чтобы она стала главной формой приложения. Тогда дальнейший вызов TApplication.Run запустит цикл обработки сообщений и приложение «запустится», а не завершит работу сразу же, как бывает без главной формы.

Для создания формы TApplication.CreateForm внутри себя вызывает TForm.Create, никакой магии в нем нет. Точнее, «магия» в установке свойства TApplication.MainForm. Если оно равно nil, TApplication.Run не знает, какому окну переправлять получаемые от ОС сообщения, и завершает работу. Для программиста свойство TApplication.MainForm — только для чтения, его значение устанавливается как раз через TApplication.CreateForm.

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

Соглашусь с предыдущими ораторами, что избавление от визуальных форм почти не повлияет на размер exe-файла. Если хочется большей автоматизации или декомпозиции, откройте для себя визуальное наследование.

[northener]

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

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

+100500
И этот код можно ручками написать в любом простом текстовом редакторе.

[Kronos913]

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

Однако, это не уменьшит на какой либо существенный объём экзешку, как и 95% остальных обсуждаемых Вами методов

Я заметил, что перенос процедуры из раздела published в public уменьшает ее код.
Вот только процедуры из public не могут прикрепляться к объектам на форме.

И на сколько я понял, у объекта созданного через конструктор, прописываются все параметры.

В то время как если объект создаётся динамически, можно вызовом одной процедуры настроить махом сразу три свойства

Function CreateButton(Parent1: TWinControl):TButton;
begin
  Result:=TButton.Create(Parent1);
  Result.Parent:=Parent1;
  Result.Font.Charset:=RUSSIAN_CHARSET;
end;

По поводу Charset - я когда поставил раннюю версию Windows 11 - у программы началась жесткая проблема с кодировкой и единственное решение было на каждом объекте прописывать Charset

[Kronos913]

В качестве теста сделал вот такую вот программку. Всё ли верно?

program Project1;
uses
  Forms, SysUtils, MyBase1Unit;
var
  MouseTest1:MouseTest;
begin
  Application.Initialize;
  MouseTest1.Create1(nil);
  MouseTest1.Run(nil);
  Application.Run;
end.

А в юните MyBase1Unit описан такой вот объект

  MouseTest = object
    Private
      Procedure MD(Sender: TObject; Button: TMouseButton;
                     Shift: TShiftState; X, Y: Integer);
    public
      L:TLabel;
      F:Form;
      Procedure Create1(Owner1: TWinControl);
      Procedure Run(Sender: TObject);
  end;

[Kronos913]

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

Kronos913,
Удаляете .dfm-файл и директиву {$R *.dfm} из модуля формы (а также, в зависимости от наличия компонентов на конструированной форме, их надо удалить из полей класса формы), и у вас не будет конструктора, но при этом создание пустой формы будет работать как обычно (оно прописано в dpr)

Попытался так сделать - программа перестала работать. Пришлось возвращать обратно форму которая к тому моменту уже была пустой