Window Main+MDI com MDICHILD , nao consigo usar o ENTER

por **runner** » 04 Ago 2009 14:36

Ola, Amigos...

Estou iniciando no uso da Minigui Extended 1.5 e me deparei com um problema
usando a janela MAIN MDI e MDICHILD. Coloquei 03 campos na janela MDICHILD como
entrada de dados e quando tento navegar pelo campos usando o ENTER ou o TAB,
simplesmente nao sai do lugar.

Gostaria de alguma dica de como resolver isto.

abaixo eu vou postar o codigo que estou usando para teste, para facilitar o
entendimente de quem quiser ajudar.

#include "minigui.ch"
#define WM_MDIMAXIMIZE 0x0225
#define WM_MDIRESTORE 0x0223
Static nWidth
Static nHeight
MEMVAR nChild

Function Main

Public nChild := 0

nWidth := GetDesktopWidth() * 0.78125
nHeight := GetDesktopHeight() * 0.78125

Set InteractiveClose Query Main

DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH nWidth ;
HEIGHT nHeight ;
TITLE 'MDI demo ' ;
MAIN MDI;
FONT 'System' SIZE 12 ;
BACKCOLOR BLUE ;
ON INIT {||CreateMDIClient()}

END WINDOW

CENTER WINDOW Form_1

ACTIVATE WINDOW Form_1

Return Nil

Function CreateMDIClient()

nWidth := GetDesktopWidth() * 0.78125
nHeight := GetDesktopHeight() * 0.78125

Title := "No Title "+ltrim(str(nchild+1))

DEFINE WINDOW ChildMdi ;
AT 0,0 ;
WIDTH nWidth ;
HEIGHT nHeight ;
TITLE title ;
MDICHILD ;
ON INTERACTIVECLOSE MsgYesNo("Are you sure ?", "Close this window")

@ 50 ,50 GETBOX EditMdi ;
WIDTH 100 ;
HEIGHT 25 ;
VALUE 'TESTE1';
TOOLTIP "Hello Tooltip"

@ 100,50 GETBOX EditMdi2;
WIDTH 100 ;
HEIGHT 30 ;
VALUE 'TESTE2';
TOOLTIP "Hello Tooltip"

@ 150,50 TEXTBOX Text_1 ;
WIDTH 50 ;
VALUE 'TESTE43' ;
TOOLTIP 'TextBox' ;
MAXLENGTH 16 ;
LOWERCASE ;
ON LOSTFOCUS MsgInfo('Focus Lost!') ;
ON ENTER MsgInfo('Enter pressed')

@ 200,50 BUTTON Button_1 ;
CAPTION "OK" ;
ACTION MsgInfo("You pressed Button OK") ;
WIDTH 50 ;
Height 50 ;
ToolTip "OK Button"

END WINDOW

nChild++

Return Nil

Window Main+MDI com MDICHILD , nao consigo usar o ENTER

Window Main+MDI com MDICHILD , nao consigo usar o ENTER

Quem está online