Window Mdi Buttons

[lailton.webmaster]

How make to dont show this button
when use window MDI



i dont wanna use menu too.

thanks

[ukoenig]

Code: Select all  Expand view

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
 

Best Regards
Uwe

[lailton.webmaster]

I use this:

oWndMain:ChildNew(,,,,NewTitle)

How use ?

thhanks

[Antonio Linares]

Lailton,

Code: Select all  Expand view

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

[lailton.webmaster]

Thanks,

Work perfect !