Xailer - Sem poder alterar conteudo na procedure "MAIN"

Discussão sobre a Xailer

Moderador: Moderadores

joelmva
Usuário Nível 1
Usuário Nível 1
Mensagens: 11
Registrado em: 25 Abr 2012 09:00
Localização: Fortaleza

Xailer - Sem poder alterar conteudo na procedure "MAIN"

Mensagem por joelmva »

Olá pessoal,

Estou iniciando os estudos no Xailer (3.0.2) e está ocorrendo a seguinte situação:
Ao tentar alterar os valores de:

Código: Selecionar todos

Procedure Main()
   Application:cTitle := "TESTE"
   TForm_Acesso():New( Application ):Show()
   Application:Run()
Return
Para:

Código: Selecionar todos

Procedure Main()
   Application:cTitle := "Sistema Teste"
   IniSystem()
   Application:Run()
Return
Após salvar e compilar ou fechar a solução e abrir novamente, os valores voltam para o ponto original como se não fosse permitido mudar nada:

Código: Selecionar todos

Procedure Main()
   Application:cTitle := "TESTE"
   TForm_Acesso():New( Application ):Show()
   Application:Run()
Return
Alguém passou por isso?

Abraços.
Editado pela última vez por Toledo em 08 Ago 2013 13:56, em um total de 1 vez.
Razão: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: http://www.pctoledo.com.br/forum/faq.php?mode=bbcode#f2r1
Avatar do usuário
fladimir
Colaborador
Colaborador
Mensagens: 2445
Registrado em: 15 Nov 2006 20:21

Xailer - Sem poder alterar conteudo na procedure "MAIN"

Mensagem por fladimir »

Sim, faz o seguinte começa o projeto e não define no projeto o módulo ai vc define abaixo

Código: Selecionar todos

Procedure Main()

   Application:cTitle := "SOAP"
   Application:Run()

Return

Funtion INISYSTEM()

//Declaracoes inicias etc...

RETURN NIL
Observe q eu não defini nada somente abaixo criei a função INISYSTEM
Ai vc salva e vai em projeto propriedades e escolhe o nome do projeto q vc esta mesmo, pois não tera nenhum formulario... blz... ai funciona vc pode depois salvar q não muda... eu apanhei muito no inicio até aprender isso..

Qdo vc salvar ele vai mudar o código acima para:

Código: Selecionar todos

Procedure Main()

   Application:cTitle := "SOAP"
   INISYSTEM()                        // Ele entende que agora seu projeto foi definido uma função ou método q foi atribuido ao projeto em propriedades
   Application:Run()

Return

Funtion INISYSTEM()

//Declaracoes inicias etc...

RETURN NIL


[]´s
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
joelmva
Usuário Nível 1
Usuário Nível 1
Mensagens: 11
Registrado em: 25 Abr 2012 09:00
Localização: Fortaleza

Xailer - Sem poder alterar conteudo na procedure "MAIN"

Mensagem por joelmva »

Olá,

Valeu pela dica.

Obrigado.
Responder