FiveTech Support Forums

function CreateChild()
local oWndChild
local oBar, oBtn
local cName := "Hello"

DEFINE WINDOW oWndChild MDICHILD OF oWnd NOSYSMENU 

DEFINE BUTTONBAR oBar OF oWndChild

DEFINE BUTTON OF oBar ACTION oWndChild:End()

@ 3, 3 GET cName OF oWndChild SIZE 120, 25 VALID ! Empty( cName )

@ 6, 2 BUTTON oBtn PROMPT "&Test" OF oWndChild SIZE 80, 20 ;
ACTION MsgInfo( GetProp( oBtn:hWnd, "WP" ) )

ACTIVATE WINDOW oWndChild 

return nil

oWndMain:ChildNew(,,,,NewTitle, nOr( WS_CLIPCHILDREN, WS_VISIBLE, WS_THICKFRAME, WS_CAPTION, WS_MINIMIZEBOX, WS_MAXIMIZEBOX ) )