Como definir a janela pai de um controle ?

[JoséQuintas]

Código: Selecionar todos

METHOD Create() CLASS FrameClass

     DEFINE FRAME &::cName
            ROW    ::nRow
            COL    ::nCol
            WIDTH  ::nWidth
            HEIGHT ::nHeight
            CAPTION ::cCaption
            FONTNAME ::cFontName
            FONTSIZE ::nFontSize
            FONTBOLD ::lFontBold
            CAPTION ::cCaption
            OPAQUE ::lOpaque
     END FRAME

   RETURN Nil

Gambiarras de pré-processador não servem, como deu pra perceber.

[JoséQuintas]

Resolvido.

[ivanil]

Ola Quintas,

Só para não deixar no vácuo que cair neste post, não tem a solução.

Todo objeto criado fora da estrutura de um form deve obrigatoriamente ser informado a propriedade Parent;

DEFINE FRAME &::cName
PARENT ::NomeForm
ROW ::nRow
COL ::nCol
...
END FRAME

at;

Ivanil

[JoséQuintas]

Legal, muito útil isso.
Não lembro de ter visto isso no #define.
Valeu.

Nota: definir manualmente pode evitar muitos imprevistos.