Amiguinho
O melhor meio de se colocar uma tela criada no WS é através de .RC.
Ou seja voce cria um projeto qualquer com extensão .RC ao invés de .DLL, inclui nele as janelas que necessita.
Salve este projeto, o mesmo é apenas um arquivo texto.
Para ligá-lo ao executável, voce compila normalmente, linka suas .LIB e quando o executável estiver terminado voce dá o comando:
RC -k NomeDoArquivoRC
Exemplo:
Voce tem um sistema chamado SISTEMA.EXE, então voce deve criar um .RC de mesmo nome: SISTEMA.RC.
Ao dar o comando RC -k SISTEMA o arquivo SISTEMA.RC será agregado ao SISTEMA.EXE
Para acessar uma janela criada que esta dentro de um .RC voce usa o comando:
REDEFINE DIALOG ... RESOURCE "dlgTeste"
Onde dlgTeste é o nome de uma dialog criada dentro da .RC
Agora lembre-se
Ao usar os comandos REDEFINE todos os controles logo abaixo dele deverão também ser REDEFINE:
Código: Selecionar todos
DEFINE DIALOG oDlg RESOURCE "dlgAgenda"
REDEFINE PANEL oPanel ID 1000 OF oDlg
REDEFINE GET oGet1 VAR M->NOTAS ID 102 OF oDlg
REDEFINE GET oGet VAR M->DTINI ID 130 OF oDlg
REDEFINE GET oGet VAR M->DTFIM ID 134 OF oDlg
REDEFINE GET oGet VAR M->DIAS ID 136 OF oDlg
REDEFINE RADIO nValue ID 107,108,109,110,128,129,111 OF oDlg
REDEFINE CHECKBOX M->PUBLICA ID 103 OF oDlg
REDEFINE COMBOBOX oCbx VAR M->PRIORIDADE ITEMS { "ALTA", "MEDIA", "BAIXA" } ID 115 OF oDlg
REDEFINE PAGES oPags ID 106 OF oDlg DIALOGS "dlgAGEAgenda", "dlgAGETarefas"
REDEFINE BUTTON ID 1 OF oDlg ACTION ( dbCloseAll(), oDlg:End() )
ACTIVATE DIALOG oDlg CENTERED ...
@braços :?)