delphi的浮动窗口该如何实现?
procedure Tfrmmain.FormShow(Sender: TObject);begin
frmFuYang_ := frmFuYang_.CreateParented(frmmain.Handle);
frmFuYang_.Show;
SendMessage(frmFuYang_.Handle, WM_NCACTIVATE, Ord(True), 0);
end;
我用了这样一段代码,一开始运行的时候是能把frmFuYang_给显示出来。但是单击frmmain得任何一个地方,frmFuYang_就会看不到了
哪位高手帮我完善一下,我希望无论单击frmmain的任何地方,frmFuYang_都能显示出来