Thema: Delphi RichEdit für Firemonkey

Einzelnen Beitrag anzeigen

Andreas L.

Registriert seit: 23. Mai 2011
Ort: Furth im Wald
308 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: RichEdit für Firemonkey

  Alt 30. Mär 2020, 13:02
Im Notfall TWebbrowser und da ein Richedit via HTML/JS rein.
Wie würdest du das machen? Mit ckeditor?

Es gibt bereits VCL7FMX-Bridge-Komponenten, um Firemonky in VCL-Forms einzubinden und andersrum ist es auch möglich.

Firemonky ist in Windows auch nur eine Zeichenfläche auf einer Windows-Form, so wie sie auch beim VCL drin steckt.
FMX selbst kann ja auch schon "native" Controls für z.B. ein TEdit, TMemo und TButton verwenden,
also muß es eine Möglichkeit geben direkt das native RichEdit-Control vom Windows dort einzubinden. (zumindestens im Windows)
Ein Firemonkey-Control in einem VCL-Form anzuzeigen ist relativ einfach. Das geht z. B. mit der Komponente TFireMonkeyContainer am einfachsten.

Aber ein VCL-Control in einem FMX-Control einzubinden ist nicht so einfach. Denn nur das FMX-Form hat ein Window Handle. Die anderen Controls leider nicht. Wie oben schon erwähnt habe ich das mit SetWindowPos bzw. SetParent und dem Handle des FMX-Forms geschafft. Aber das VCL-Control kann eben nur im FMX-Form und nicht in anderen FMX-Controls platziert werden. Wie würdest du ein TRichEdit in FMX einbinden?

So habe ich das VCL-Form eingebettet:

Delphi-Quellcode:
function TfrmMain.GetFormHandle(AForm: TCustomForm): HWND;
begin
  Result := 0;
  if not Assigned(AForm) then
    Exit;

  Result := FmxHandleToHWND(AForm.Handle);
end;

procedure TfrmMain.btnEmbeddMemoFormInMainFormClick(Sender: TObject);
var
  MainFormHandle: HWND;
begin
  // Handle des FMX-Forms ermitteln
  MainFormHandle := Self.GetFormHandle(Self);

  // VCL-Form anzeigen
  frmMemo.Show;

  // VCL-Form das FMX-Form als Parent zuweisen
  WinApi.Windows.SetParent(frmMemo.Handle, MainFormHandle);
end;
Kennt ihr noch andere Möglichkeiten um ein VCL-Control in einem FMX-Control einzubetten?
Andreas Lauß
Blog
  Mit Zitat antworten Zitat