Intraweb - Chamar outro Form, abrindo no mesmo browse.

Delphi

03/05/2007

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.


M

M

Curtidas 0

Respostas

Jujan

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.


GOSTEI 0
M

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


GOSTEI 0
Nightshade

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..


GOSTEI 0
M

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


GOSTEI 0
M

M

03/05/2007

Será que alguem poderia me ajudar.
Desde já grato.

Ainda não consegui a solução.


GOSTEI 0
M

M

03/05/2007

Desculpe a insistencia., mas não estou consuindo a solução.
no aguardo, grato.


GOSTEI 0
Maikiperin

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.


GOSTEI 0
Vsf

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´,´´,´´);´);


GOSTEI 0
POSTAR