Jump to content

Search the Community

Showing results for tags 'exemplo'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • uniGUI Public
    • Announcements
    • General
    • Feature Requests
    • Installation
    • Deployment
    • Other Platforms
  • Licensing
    • Licensing
    • Ordering uniGUI
  • Bug Reports
    • Active Reports
    • Closed Reports
    • Old Bug Reports
  • uniGUI Development
    • General Development
    • uniGUI Releases & Roadmaps
    • Utilities
  • Mobile Platform
    • uniGUI Mobile
    • Mobile Browsers
  • Users Area
    • Sample Projects
    • Components and Code Samples
    • Third Party Components
  • Non-English
    • Non-English
  • Miscellaneous
    • Hosting
    • Server Security
    • Jobs

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 1 result

  1. É 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
×
×
  • Create New...