Hello,

I'd like to embed another application window[*] in my application. I found this code

https://stackoverflow.com/questions/7611103/embedding-window-into-another-process#7612436

and it works. Since my application should run under windows that should be enough, but I prefer to do my testing under Linux, so I'd like a solution for the qt5 widgetset.

I tried this code

procedure TForm1.Button1Click(Sender: TObject);
var kk:QWindowH;
   cc: QWidgetH;
begin
   kk:=QWindow_fromWinID(StrToInt64(Edit1.text));
   QWindow_setFlags(kk,QtFramelessWindowHint);
   cc:=QWidget_createWindowContainer(kk);
   QWidget_setParent(cc,TQtWidget(Self.Handle).Widget);
end;

and, while the other application window disappears, I don't see it in my form (it's still running though).

I tried to find some clues in the mplayer control but it doesn't work with qt (I tried to adapt it with no success), besides it just instructs mplayer to embed itself in a control.

[*] actually I need to embed a browser, but none of the alternatives in https://wiki.freepascal.org/Webbrowser work:

- turbopower is too limited
- I didn't try qtWebkit but it seems qt only
- geckoport has been discontinued
- fpCEF3 is old and couldn't make it work[**]
- CEF4Delphi is windows only at the moment

but playing with userChrome.css I could embed firefox as an external application.

Bye

El 7/6/20 a les 11:51, Luca Olivetti via lazarus ha escrit:

- fpCEF3 is old and couldn't make it work[**]

I forgot the [**]: I had to do a couple changes to compile it with fpc 3.2:

diff --git a/cef3types.pas b/cef3types.pas
index 9598487..6cab661 100644
--- a/cef3types.pas
+++ b/cef3types.pas
@@ -2412,7 +2412,7 @@ Type

      // Set to true (1) for thick underline.
      thick: Integer;
    end;

- TCefCompositionUnderlineArray = array[0..(High(Integer) div SizeOf(TCefCompositionUnderline)) - 1] of TCefCompositionUnderline;
+ TCefCompositionUnderlineArray = array[0..0 {(High(Integer) div SizeOf(TCefCompositionUnderline)) - 1 FIXME}] of TCefCompositionUnderline;

    PCefCompositionUnderlineArray = ^TCefCompositionUnderlineArray;

  Implementation

and add ifdefs for LCLQT5

Bye

El 7/6/20 a les 11:51, Luca Olivetti via lazarus ha escrit:

I also tried

QWidget.setParent(cc, TQTMainWindow(handle).GetContainerWidget)

and

QWidget.setParent(cc, TQTMainWindow(handle).Widget)

as well as TQTWidget(panel1.handle).widget

but nothing works (the other application disappears but it doesn't show on my form/panel)

I tried, qt4 only, so no qt5

it's tough (firefox is special since firefox.exe isn't directly the owner of its window but it spawns other instances that in turn show the window and it always shows the window borders, no matter what api you try to avoid that) but I managed to do it under windows.

Bye

This works fine here (TPanel on main form, embedded google chrome ):

   AWindow := QWindow_fromWinID(PtrUInt($8600001)); // found id by xwininfo
   AWidget := QWidget_createWindowContainer(AWindow, nil, QtWidget or
QtForeignWindow);
   QWidget_setParent(AWidget, TQtWidget(Panel1.Handle).Widget);
   QWidget_show(AWidget);

You're missing QtForeignWindow flag and QWidget_show() for container widget.

zeljko

El 9/6/20 a les 9:36, zeljko ha escrit:

Thank you!
I was also missing the QWidget_show call.

Bye