| Fenster in einem Fenster (B+) von ??? |
| Ist zwar aus dem eng. Forum geklaut aber dennoch super Lösung. Einfach mal probieren :) [code:1:df7363400e] Global ParentWin = CreateWindow("Parent",200,200,200,200,0,1) Global ChildWin = CreateWindow("Child",100,200,100,100,ParentWin,17) Global OldX=GadgetX(ParentWin) Global OldY=GadgetY(ParentWin) Repeat Select WaitEvent() Case $801 ; Win move Select EventSource() Case ParentWin NewX=EventX() NewY=EventY() MoveX=NewX-OldX MoveY=NewY-OldY OldX=NewX OldY=NewY SetGadgetShape(ChildWin,GadgetX(ChildWin)+MoveX,GadgetY(ChildWin)+MoveY,GadgetWidth(ChildWin),GadgetHeight(ChildWin)) End Select Case $803 ; Win close End End Select Forever [/code:1:df7363400e] |