In MainModule:
TUniMainModule = class(TUniGUIMainModule)
private
{ Private declarations }
public
{ Public declarations }
MyVar : Integer;
end;
In your code:
implementation
{$R *.dfm}
uses
uniGUIVars, MainModule, ServerModule, uniGUISessionManager;
procedure TMainForm.UniButton1Click(Sender: TObject);
var
I: Integer;
ASessionList: TList;
begin
ASessionList := UniServerModule.SessionManager.Sessions.SessionList.LockList;
try
for I := 0 to ASessionList.Count - 1 do
begin
(TUniGUISession(ASessionList[i]).UniMainModule as TUniMainModule).MyVar:=10;
end;
finally
UniServerModule.SessionManager.Sessions.SessionList.UnlockList;
end;
end;