Global Floating Windows without Title Bar

Hi,

How i can create a Global Floating Window without title bar?

If it didn’t have a title bar, how would the user move it?

That’s the idea, because i open the a movieplayer in a second monitor for a video server. I found a soluction in other post and is working,

https://forum.xojo.com/2625-plain-box-that-globally-stays-in-foreground/0

dim newStyle As UInt32 = 0 //no titlebar, not resizeable
if self.Resizeable then newStyle = 8 //no titlebar and resizeable

soft declare sub setStyleMask lib “Cocoa.framework” selector “setStyleMask:” (id As Ptr, mask As UInt32)
setStyleMask(Ptr(self.Handle), newStyle)