Intraweb - Chamar outro Form, abrindo no mesmo browse.
Caro colegas, gostaria da ajuda de vocês.
Estou com duas duvida:
1) Tenho um Form Intraweb, neste form tenho um IWLink, ao clicar neste IWLink quero abrir este novo form intraweb, no mesmo browse. Não quero que ele abra outro browse om esta nova pagina.
2) Quero agora abrir outro form intraweb em outra pagina do browse.
Agradeço desde já pela ajuda.
Maurício
Intraweb - Chamar outro Form, abrindo no mesmo browse.
Estou com duas duvida:
1) Tenho um Form Intraweb, neste form tenho um IWLink, ao clicar neste IWLink quero abrir este novo form intraweb, no mesmo browse. Não quero que ele abra outro browse om esta nova pagina.
2) Quero agora abrir outro form intraweb em outra pagina do browse.
Agradeço desde já pela ajuda.
Maurício
Intraweb - Chamar outro Form, abrindo no mesmo browse.
M
Curtidas 0
Respostas
Jujan
03/05/2007
procedure ExibePage(Page: TIWAppformClass);
begin
if UserSession.GLBPage = Page.ClassName then
exit;
TIWAppForm(RWebApplication.ActiveForm).Release;
Page.Create(RWebApplication).Show;
UserSession.GLBPage:=Page.ClassName;
end;
chama esse procedimento no botão ou iwlink.
begin
if UserSession.GLBPage = Page.ClassName then
exit;
TIWAppForm(RWebApplication.ActiveForm).Release;
Page.Create(RWebApplication).Show;
UserSession.GLBPage:=Page.ClassName;
end;
chama esse procedimento no botão ou iwlink.
GOSTEI 0
M
03/05/2007
Caro Colega Jujan
Não entendi seu código, será que poderia me dar mais explicações ou até mesmo disponibilizar um exemplo simples.
Agradeço desde já
Abraços
Não entendi seu código, será que poderia me dar mais explicações ou até mesmo disponibilizar um exemplo simples.
Agradeço desde já
Abraços
GOSTEI 0
Nightshade
03/05/2007
ExibePage(FrmTeste);
poe essa função dentro de um evento de botao ou link..
e dentro dela tu poe o formulario q tu ker abrir..
o procedimento tu poe numa unit separada, e declara ela sempre, ou poe no topo da unit atual..
poe essa função dentro de um evento de botao ou link..
e dentro dela tu poe o formulario q tu ker abrir..
o procedimento tu poe numa unit separada, e declara ela sempre, ou poe no topo da unit atual..
GOSTEI 0
M
03/05/2007
Caros colegas ainda não consegui a solução
procedure ExibePage(Page: TIWAppformClass);
begin
if UserSession.GLBPage = Page.ClassName then
exit;
TIWAppForm(RWebApplication.ActiveForm).Release;
Page.Create(RWebApplication).Show;
UserSession.GLBPage:=Page.ClassName;
end;
no iwlink, on click coloco o código
ExibePage(FormXXX);
Compilo e da o erro
GLBPage
não entende este parametro
Alguem teria a solução
desde já grato pela ajuda
Abraços
procedure ExibePage(Page: TIWAppformClass);
begin
if UserSession.GLBPage = Page.ClassName then
exit;
TIWAppForm(RWebApplication.ActiveForm).Release;
Page.Create(RWebApplication).Show;
UserSession.GLBPage:=Page.ClassName;
end;
no iwlink, on click coloco o código
ExibePage(FormXXX);
Compilo e da o erro
GLBPage
não entende este parametro
Alguem teria a solução
desde já grato pela ajuda
Abraços
GOSTEI 0
M
03/05/2007
Será que alguem poderia me ajudar.
Desde já grato.
Ainda não consegui a solução.
Desde já grato.
Ainda não consegui a solução.
GOSTEI 0
M
03/05/2007
Desculpe a insistencia., mas não estou consuindo a solução.
no aguardo, grato.
no aguardo, grato.
GOSTEI 0
Maikiperin
03/05/2007
Caro colega,
não sei a princípio qual versão do IW vc utiliza, possuo a versão 5.1.3 e na situação ´1)´ eu chamo desta forma:
TIWAppForm(WebApplication.ActiveForm).Release;
TFFormulario_Teste.Create(WebApplication).Show;
na situação ´2)´ requisito o formulário desta forma:
AddToInitProc(´NewWindow(´´+WebApplication.AppURLBase+´/Files/´+nome_arquivo+´.htm´,´´,´´);´);
o parâmetro:
´´+WebApplication.AppURLBase+´/Files/´+nome_arquivo+´.htm´
nesse caso é caminho do arquivo no qual pretendo exibir, no seu caso deve ser alterado pelo nome do formulário em questão.
a situação acima é típica na chamada de relatórios.
Att, Maiki Perin.
não sei a princípio qual versão do IW vc utiliza, possuo a versão 5.1.3 e na situação ´1)´ eu chamo desta forma:
TIWAppForm(WebApplication.ActiveForm).Release;
TFFormulario_Teste.Create(WebApplication).Show;
na situação ´2)´ requisito o formulário desta forma:
AddToInitProc(´NewWindow(´´+WebApplication.AppURLBase+´/Files/´+nome_arquivo+´.htm´,´´,´´);´);
o parâmetro:
´´+WebApplication.AppURLBase+´/Files/´+nome_arquivo+´.htm´
nesse caso é caminho do arquivo no qual pretendo exibir, no seu caso deve ser alterado pelo nome do formulário em questão.
a situação acima é típica na chamada de relatórios.
Att, Maiki Perin.
GOSTEI 0
Vsf
03/05/2007
Ok! Consegui fazer o código abaixo funcionar para abrir o form na mesma janela
TIWAppForm(WebApplication.ActiveForm).Release; //Libera o form ativo da memória
TSupervisaoPontoFrm.Create(WebApplication).Show; //Cria e chama o novo form, tornado-o o form ativo
mas ao tentar usar o código a seguir para abrir em nova janela recebo erro EInvalidSessione ´Session Not Found. Session May Have Expired´
AddToInitProc(´NewWindow(´SupervisaoPontoFrm´,´´,´´);´);
TIWAppForm(WebApplication.ActiveForm).Release; //Libera o form ativo da memória
TSupervisaoPontoFrm.Create(WebApplication).Show; //Cria e chama o novo form, tornado-o o form ativo
mas ao tentar usar o código a seguir para abrir em nova janela recebo erro EInvalidSessione ´Session Not Found. Session May Have Expired´
AddToInitProc(´NewWindow(´SupervisaoPontoFrm´,´´,´´);´);
GOSTEI 0