Cezar

João, bom dia! Agradeço muito se puder me enviar. Cezar Email:vczz@bol.com.br

Marllon, como vai. Desculpe-me eu sou iniciante em Fw e ainda não estou familharizado com a lógica do Fw mas chego lá. Fiz como voce me sugeriu mas não funcionou! Devo estar fazendo aindo coisa errada! No exemplo que anexei, eu consegui colar uma DIALOG sem ter sido criada no Workshop. Mdi2() e Mdi3(). No workshop eu crio um arquivo .RC e não um Dll, mesmo assim preciso carregar Bwcc.dll?? Se eu tiver várias janelas MDICHILD, portanto várias DIALOG's; elas estarão em um único arquivo .RC?? Grato.

Não consigo colar uma janela Dialog criado no Workshop numa janela MDICHILD !! O dialog foi criado obedecendo os critérios: caption: Em branco / Window Type: Child / Frame style: No border / Dialog style: sem marcas. No exemplo abaixo nas funcoes Mdi2() e Mdi3() foi feita manualmente e funciona! A Mdi1() é onde estou tentando colar o Dialog criado no Whorkshop e não estou conseguindo: dá erro Fivewin/3 e que não pode criar o recurso??? Já li e segui todos manuais do site!!! Outra coisa: Quando compilo e linko no clipper o tamanho do arquivo é por exemplo 696.450, após RC -k P01.exe ele cai para 695.230??? AGRADECERIA A GENTILEZA SE PUDEREM ME DAR UM EXEMPLO/ROTERIO DE COMO FAZER ISSO??? ************* * p01.prg ************* #include "fivewin.ch" function main() public owp // set resources to "Customer.rc" define window owp from 0,0 to 30,80 title "TESTE MDI" mdi menu meumenu() ; menuinfo 4 set message of owp to "" clock date keyboard activate window owp // set resources to return nil static function meumenu() local omenu menu omenu menuitem "Form1" action mdi1() menuitem "Form2" action mdi2() menuitem "Form3" action mdi3() oMenu:AddMDI() endmenu return omenu // AQUI É O PROBLEMA!!! static function mdi1() local ow, od define window ow mdichild of owp title "Mdichild-1" from 0,0 to 20,50 nomaximize ow:bgotfocus:={||od:setfocus()} define dialog od resource "dialog_1" of ow activate dialog od nowait on init od:move(0,0) activate window ow on init ow:setsize(od:nwidth,od:nheight) return nil // AQUI FUNCIONA !! static function mdi2() local ow, od define window ow mdichild of owp title "Mdichild-2" from 0,0 to 20,50 nomaximize ow:bgotfocus:={||od:setfocus()} define dialog od from 0,0 to 20,50 style WS_CHILD of ow @ 5,5 say "teste" activate dialog od nowait on init od:move(0,0) activate window ow on init ow:setsize(od:nwidth,od:nheight) return nil // AQUI FUNCIONA !! static function mdi3() local ow, od define window ow mdichild of owp title "Mdichild-3" from 0,0 to 20,50 nomaximize ow:bgotfocus:={||od:setfocus()} define dialog od from 0,0 to 20,50 style WS_CHILD of ow activate dialog od nowait on init od:move(0,0) activate window ow on init ow:setsize(od:nwidth,od:nheight) return nil

Que parametro usar para que a tecla ENTER funcione como o click do mouse no BUTTON ??? Grato pela dica!

Vagner e Gilmer. Entendi a explicação!! Grato.