Jump to content

EmpresaMix

Members
  • Posts

    8
  • Joined

  • Last visited

Everything posted by EmpresaMix

  1. No caso do meu exemplo eu retorno (RESULT) a instancia do objeto que serve para acessar o objeto. pois no seu exemplo frmForm1 não está criado, voce deve ter uma forma de acessar no seu exemplo o Fr que é a instancia da classe que voce criou. tente no seu exemplo usar Fr.botao.caption:='xxxx' ou TUniFrameMeu(FR).botao.caption:='xxxx' que vai funcionar. voce pode salvar esta instancia Fr em um vetor e acessar fr[1].botao.caption:='xxx' e se tem classes acima da TUniFrame. voce precisa tipar a classe para acessar os objetos criados na sua classe. Exemplo: TUniFrameMEU(fr).botao.caption:='xxx'; ou fazer com o result como fiz assim retorna a instancia da classe criada. FR:=NovaAba(TUniFrameA,'TESTE') TUniFrameMEU(fr).botao.caption:='xxx'; veja se te ajuda.
  2. I would also like to know if you have to pass a parameter to another ISAPI as "SELF" for example, a typed parameter. thank you.
  3. Uso uma função para retornar o objeto do UniFrame se estiver criado ou crio o uniframe. Mas no form principal, veja se consegue adaptar para usar no frame atual. function TMainForm.NovaAba(FormFrame: TUniFrame; Nome_Action: string):TUniFrame; var TabSheet :TUniTabSheet; FCurrentFrame :TUniFrame; I,C :Integer; begin Mostra_Aluno; Result:=nil; PageControl.Visible:= True; {Verificando se a tela já está aberto e redicerionando a ela} for I := 0 to PageControl.PageCount - 1 do with PageControl do if Pages.Caption = Nome_Action then begin for C := 0 to Pages.ComponentCount-1 do begin if (Pages.Components[c].ClassParent = TUniFrame) then begin {Retorna a Instancia do frame ja existente} Result:=TUniFrame(Pages.Components[c]); break; end; end; PageControl.ActivePageIndex := I; Exit; end; TabSheet := TUniTabSheet.Create(Self); TabSheet.PageControl := PageControl; TabSheet.Caption := Nome_Action; TabSheet.Closable := True; FCurrentFrame:= TUniFrameClass(FormFrame).Create(TabSheet); Result:=FCurrentFrame; with FCurrentFrame do begin Align := alClient; Parent := TabSheet; end; Refresh; PageControl.ActivePage := TabSheet; end;
  4. boa tarde, É possivel desenvolver varios modulos em DLL ISAPI? Para cada modulo ficar em uma DLL, por exemplo Cadastros, Compras, vendas e todas usarem o mesmo formulário principal. Como é passado parâmetro de variáveis para chamar outra DLL e esta usar o mesmo formulário da tela principal. obrigado,
  5. Já havia feito conforme este manual. No meu computador funcionou, mas no servidor não. No Servidor é 64 bits tem IIS 8 e tem muito mais opção que este manual, creio que deve ser algo com permissão, mas não consegui localizar. Se instalar o Apache em outra porta pode dar certo e é mais fácil configurar. Alguém usa Apache com ISAPI será que funciona corretamente?
  6. Publiquei a DLL no Meu Computador Funcionou ok. No servidor Erro 500.19 Mudei as permissões do usuário e agora não dá erro mas fica carregando .... e não mostra nada depois de um tempo TimeOut. O Servidor está funcionando ok, tenho outro site, mas não em ISAPI. http://www.empresamix.ws/UNIGUI/web_aluno.dll
  7. Como faço para ancorar um formulário TUniForm dentro de um TUniPanel Para que o Fomulário fique dentro do Painel?
×
×
  • Create New...