Search the Community
Showing results for tags 'chamar'.
-
É possivel usar o Uniframe dentro de um projeto mobile? Se sim, alguém tem um exemplo de como chamar um uniframe dentro de um mobile. Pois eu tentei chamar um uniFrame da mesma forma que chamo em Aplicação Web e deu a seguinte mensagem: "OC4.setTitle is not a function" Código usando para Chamar o uniFrame Criei no Private o seguinte: private { Private declarations } FFrameName: string; FCurrentFrame: TUniFrame; procedure InsertFrame(AName, ATitle: string; MeuIDFrame : Integer; IDIcone: Integer); E criei a procedure assim: procedure TfrmLoginM.InsertFrame(AName, ATitle: string; MeuIDFrame : Integer; IDIcone:Integer); var Path: string; begin try if FFrameName = AName then Begin Exit; End else Begin FFrameName := AName; End; Path := UniServerModule.StartPath + 'Versao\'; pgGERAL.TabIndex := MeuIDFrame; FreeAndNil(FCurrentFrame); except on E : Exception do begin sa.Info('ERRO NO ID FRAME...: '+MeuIDFrame.ToString); Abort; end; end; Try if AName <> 'TfrmLogimM' then begin FCurrentFrame := TUniFrameClass(FindClass('T' + AName)).Create(Self); FCurrentFrame.Align := alClient; FCurrentFrame.Parent := tsAbastecimento; tsAbastecimento.Caption := ATitle; tsAbastecimento.ImageIndex := IDIcone; end; except on E : Exception do begin sa.Warning('Atenção de Exceção! 002',E.Message+' - Classe: '+e.ClassName, procedure(const ButtonClicked: TAButton) begin end); Abort; end; end; end; Chamei o uniFrame: InsertFrame('frmTesteM' , 'ABASTECIMENTO', 2,0); Mas está apresentando o erro em destaque acima