Hello, I have an application. When I call the frame it presents the error:
Privileged Instruction
Below my code:
var
Nd : TUniTreeNode;
Ts : TUniTabSheet;
FrC : TUniFrameClass;
Fr : TUniFrame;
FClassName, iconfile, Path: string;
index: Integer;
begin
Nd := NavTree.Selected;
if Nd.Count = 0 then
begin
Ts := Nd.Data;
if not Assigned(Ts) then
begin
Ts := TUniTabSheet.Create(Self);
Ts.PageControl := UniPageControl1;
Ts.Closable := True;
Ts.OnClose := TabSheetClose;
Ts.Tag := NativeInt(Nd);
Ts.Caption := Nd.Text;
Ts.ImageIndex := Nd.ImageIndex;
if Nd.Text = 'Cadastro de Fornecedor' then
FrC := TUniFrameClass(TFrameFornecedor);
if Nd.Text = 'Cadastro de Prefeitura' then
FrC := TUniFrameClass(TfrmPrefeitura);
Fr := FrC.Create(Self);
Fr.Align := alClient;
Fr.Parent := Ts;
Nd.Data := Ts;
end;
UniPageControl1.ActivePage := Ts;
end;