My Visual Database — Ошибка при создании формы класса TAForm

Re: Ошибка при создании формы класса TAForm

null@example.com (vovka3003) — Sat, 30 Jul 2022 09:21:08 +0000

Дело даже не в разнице... Просто свойства и методы TAForm и TForm прикручены выборочно и через жопу.
Например приведение экземпляра TForm к TAForm в проверке валидности кода происходит по тихому и без ошибок, но в рантайме форма после приведения остается классом TForm. Несмотря на это она так же без ошибок принимает свойства MinimizeToTray и ShowOnTaskbar, но фактически ничего не происходит. А OnDropFiles у "виртуального" (и даже стокового) TAForm вообще отсутствует...

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

Re: Ошибка при создании формы класса TAForm

null@example.com (k245) — Sat, 30 Jul 2022 07:35:56 +0000

vovka3003 wrote:

k245 wrote:
Есть дополнительные свойства (служебные ), но, что гораздо важнее, есть поддержка обработки событий.
А какие именно?

Свойства:
- MinimizeToTray
- ShowOnTaskbar

Обработчики событий:
- OnDropFiles

Но я намёк понял: разница между классами TAForm и TForm не настолько большая, чтобы печалиться о невозможности создания экземпляра TAForm

Re: Ошибка при создании формы класса TAForm

null@example.com (vovka3003) — Fri, 29 Jul 2022 19:42:35 +0000

k245 wrote:

Есть дополнительные свойства (служебные ), но, что гораздо важнее, есть поддержка обработки событий.

А какие именно?

Re: Ошибка при создании формы класса TAForm

null@example.com (k245) — Fri, 29 Jul 2022 10:21:04 +0000

Есть дополнительные свойства (служебные ), но, что гораздо важнее, есть поддержка обработки событий. Возможно, она есть и у TForm, но в документации это не указано, а на деле я ещё не проверял.

Re: Ошибка при создании формы класса TAForm

null@example.com (vovka3003) — Fri, 29 Jul 2022 09:59:02 +0000

А у TAForm вообще есть принципиальные отличия от TForm? Свойства, методы?

Re: Ошибка при создании формы класса TAForm

null@example.com (k245) — Fri, 29 Jul 2022 07:04:04 +0000

Главная форма - экземпляр класса TfrmMaindbCore (1)
Все остальные формы, созданные в редакторе - TAForm (2)
Кроме них имеется огромный зоопарк других форм и диковинных компонентов...

Re: Ошибка при создании формы класса TAForm

null@example.com (vovka3003) — Thu, 28 Jul 2022 21:19:38 +0000

Насколько я понимаю, TAForm - это главное окно приложения (типа TMainForm) и может быть только в одном экземпляре.

Re: Ошибка при создании формы класса TAForm

null@example.com (k245) — Thu, 28 Jul 2022 11:32:03 +0000

I agree, you can create instances of the TForm class, but this does not fix the error. Perhaps the value of the TAForm class is exaggerated, and it is not really needed

Re: Ошибка при создании формы класса TAForm

null@example.com (CDB) — Thu, 28 Jul 2022 10:17:09 +0000

This works.

procedure createf (Sender: TObject; var Cancel: boolean);
var
 frm:TForm;
begin
 //   Frm := TForm.Create(Form1);   // or  
   Frm := TForm.Create(Application);
  Frm.ShowModal;
end;

Ошибка при создании формы класса TAForm

null@example.com (k245) — Thu, 28 Jul 2022 08:49:35 +0000

TAForm - это класс форм, которые создаются в визуальном редакторе. У класса есть конструктор Create, что предполагает возможность программного создания таких форм.

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  CreateForm;
end;

procedure CreateForm;
var
  Form:TAForm;
begin
  Form := TAForm.Create(Application);
  Form.ShowModal;
end;

begin
end.

При компиляции ошибки нет, но стоит нажать кнопку для создания формы, получаем ошибку: