Frames dentro de ControlPages

[[movorack]]

SessionID es una variable accesible o propiedad publica del frame?

[jars]

Es una propiedad publica del frame.
Basicamente lo que quiero hacer es que cuando recibo un mensaje de chat, con el sessionid lo pueda localizar y agregar ese mensaje en el richedit del tab que corresponda.

[roman]

No debería haber ningún problema. ¿Puedes mostrar cómo tienes declarada la propiedad SessionId del frame?

// Saludos

[jars]

Roman, asi esta declarada:

Código Delphi [-]
type
  TfrChat = class(TFrame)
    Panel1: TPanel;
    btnSend: TcxButton;
    mSend: TsMemo;
    SB: TmxStatusBar;
    ToolBar1: TToolBar;
    btnSave: TToolButton;
    btnFont: TToolButton;
    Panel2: TPanel;
    mHistory: TJvRichEdit;
    FontDialog: TFontDialog;
    sAlphaImageList1: TsAlphaImageList;
  private
    FSessionID: string;
    procedure SetSessionId(const Value: string);
  public
    property SessionId: string read FSessionId write SetSessionId;
  end;

Si no deberia haber ningun problema, por favor decime como la accedo.
Gracias

[[movorack]]

Según ese código no deberías tener ningún problema! :S

[roman]

Pues sí, no debe haber ningún problema. Exactamente, ¿cuál es el mensaje de error que obtienes?

// Saludos

[Neftali [Germán.Estévez]]

Además de lo que te han dicho, tal vez deberías guardar en una lista las referencias a los Frames que vas creando. Es decir, si para crearlos todos usas el mismo código y la misma variable, te será más fácil acceder a los frames si los almacenas en una lista (TObjectList o TList).

[jars]

Pues lo que estoy haciendo ahora es guardandolo en un StrinList (Sessions), este es el código.

Código Delphi [-]
procedure TfrmMediaTabs.NewMessage(SessionId, TextMessage: string);
var
  x: Integer;
begin
  x := Sessions.IndexOf(SessionId);
  if x < 0 then Exit;
  TfrChat(Sessions.Objects[x]).mHistory.Text := TextMessage;
end;

Con este codigo, cada vez que llega un mensaje desde la web, intento agregarselo a la sessión que corresponda pero me encuentro que solamente me muestra el de la primera session y no el de la segunda.

Código Delphi [-]
  // frmMediaTabs es el formulario que contiene a PageControl
  frmMediaTabs.ChatSession := '1234';
  frmMediaTabs.Show;
  frmMediaTabs.NewMessage('1234', 'Este es el mensaje para la primera sesión');

  frmMediaTabs.ChatSession := '13587';
  frmMediaTabs.Show;
  frmMediaTabs.NewMessage('13587', 'Este es el mensaje para la segunda sesión');