Delphi XE2: возможно ли создать экземпляр формы FireMonkey в приложении VCL?

Это вполне возможно, поскольку форма FMX может быть назначена панели.

Дополнительные сведения см. В этой статье блога:

Просто создайте новую форму FireMonkey (2D или 3D, не имеет значения), сохраните ее, а затем добавьте в свое приложение VCL (просто примите предупреждение). Вы можете где-нибудь создать свой экземпляр формы FMX и просто показать его - без проблем. Но что, если вы хотите создать хороший элемент управления с анимацией или чем-то еще и встроить его в существующую форму VCL? Хорошо, поместите TPanel в свою форму VCL и включите новый модуль DSharp.Windows.FMXAdapter.pas после Vcl.ExtCtrls. Затем просто создайте где-нибудь свою форму FMX и назначьте ее новому свойству Form вашей панели - и бум, вот и все.

На самом деле код FMXAdapter.pas очень короткий:

procedure TPanel.Resize;
begin
  inherited;
  ResizeForm();
end;

procedure TPanel.ResizeForm;
begin
  if Assigned(FForm) then
    Platform.SetWindowRect(FForm, RectF(BorderWidth, BorderWidth,
      ClientWidth + BorderWidth, ClientHeight + BorderWidth));
end;

procedure TPanel.SetForm(const AForm: TCommonCustomForm);
begin
  FForm := AForm;  
  FForm.BorderIcons := [];
  FForm.BorderStyle := TFmxFormBorderStyle.bsNone;
  ResizeForm();
  FForm.Visible := True;
  Winapi.Windows.SetParent(FmxHandleToHWND(FForm.Handle), Handle);
end;

Для более современного подхода попробуйте TFireMonkeyContainer. Это компонент VCL с открытым исходным кодом, который вы можете разместить в форме VCL, и он может размещать / встраивать в него форму FireMonkey.

Форма FMX, встроенная в форму VCL с помощью TFireMonkeyContainer

Подробности здесь: вводная статья и с исправлениями некоторых ошибок и дополнительными функциями. Найдите ссылку на страницу кода Google и источник здесь.

Он работает с XE2 и выше, включая XE4 + (где FMX претерпел некоторые большие изменения).

Отказ от ответственности: это мой компонент. (Я создал его, чтобы решить эту проблему.) Он имеет лицензию MPL, поэтому его можно свободно использовать даже в коммерческих приложениях. Надеюсь, это поможет вам и облегчит вашу жизнь!

Я не пробовал себя, но знаю один подтвержденный способ смешивания VCL и FireMonkey в одном приложении с использованием RemObjects Hydra и один неподтвержденный отчет о том, что у вас могут быть формы FireMonkey в приложении VCL на Delphi Sorcery.

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

Я только что создал два простых тестовых проекта: Project46 и Project47. Project46 содержал Unit25 с формой VCL. Проект 47 содержал Unit26 с формой FMX. В Form25 я добавил кнопку с обработчиком OnClick:

procedure TForm25.Button1Click(Sender: TObject);
var
  F: Unit26.TForm26;
begin
  F := TForm26.Create(nil);
  try
    F.ShowModal;
  finally
    F.Free;
  end;
end;

Это сработало, как и ожидалось. Но в остальном формы должны быть строго независимыми друг от друга. Обмениваться можно только общими типами.

Загрузите и установите MonkeyMixer. Загрузите свой проект VCL (или создайте новый), щелкните его правой кнопкой мыши в Project Explorer, затем вы увидите либо «Switch to FireMonkey». Щелкните по нему, и вы сможете легко добавлять формы FireMonkey в свой проект VCL. Затем вы можете вернуться в режим VCL (если вы хотите добавить VCL Forms / Frames) таким же образом, за исключением того, что в пункте меню будет сказано «Switch to VCL».

Наслаждаться!

Все проблемы микса FMX + VCL могут быть решены на уровне WinAPI. Но лично я не рекомендую вам использовать такой микс в реальных приложениях.