在Lazarus中如何实现窗口融合？

ft1022

在Delphi中我可以通过以下代码实现窗口融合，那在Lazarus中如何实现？
ChildForm:=TForm2.CreateParented(Form1.Handle);ChildForm.show;SendMessage(ChildForm.Handle, WM_NCACTIVATE, Ord(True), 0); //使用创建的子窗体德到焦点。
CreateParented在Lazarus中好象不起作用。

daimon

可能跟多平台有关吧，LAZARUS好象不支持有子窗口。

wylton

你的意思我不明白。是重新建立一个子窗口(tform2)继承父窗(Tform1)吗？

ft1022

不是继承，就象photoshop等软件中的那个些浮动面板，就是采用窗体做的，但又不是mdi窗体。

zeus-chu

do something like this (in the parent form)

1. with TSubForm.Create(Self) do begin
2.   Parent := Self;
3.   Show;
4. end;

复制代码