Frames dentro de ControlPages

[jars]

Si tengo 3 tabs y estoy parado en el 3, como hago para acceder programaticamente a mHistory (TJvRichEdit) del frame de tab 1?
No encuentro la forma o no me doy cuenta de como hacerlo, .... se puede?

[ecfisa]

Empezado por jars

Si tengo 3 tabs y estoy parado en el 3, como hago para acceder programaticamente a mHistory (TJvRichEdit) del frame de tab 1?
No encuentro la forma o no me doy cuenta de como hacerlo, .... se puede?

Hola.

No estoy seguro de haber interpretado lo que estas buscando, pero según lo que entendí sería:

Código Delphi [-]
  ...
  PageControl1.ActivePageIndex := 1;
  JvRichEdit.SetFocus;
  ...

En este caso la consulta está relativamente relacionada, pero recuerda que para nuevas preguntas se debe crear un nuevo hilo.

Saludos.

[jars]

No, me referia a acceder a mHistory pero sin cambiar de tab.

[ecfisa]

Hola.

Siempre que no pretendas darle el foco (ya que en ese momento JvRichEdit es invisible), podes acceder de forma directa:

Código Delphi [-]
   JvRichEdit.Text := 'Hola'

Saludos.

[jars]

Y como le indico que es el del primer tab.
Refresco un poco lo que hago.
En un formulario tengo una componente del tipo TPageControl en la que voy a tener varias sesiones de chat, una en cada Tab.
Cuando creo una nueva TTabSheet en esta creo un TFrame, al que en el momento de la creacion le seteo el sessionid.
Mi problema es que no encuentro la forma de acceceder a las variables y componentes del frame desde desde otro Tab.

[[movorack]]

Ten en cuenta que el PageControl, mas especificamente el Tab solo es el lugar donde se despliega visualmente y puedes acceder al objeto del frame desde cualquier lugar donde sea accesible.

Es decir que recorriendo así puedes encontrarlo y modificarlo

Código Delphi [-]
for i := 0 to Self.ComponentCount - 1 do
begin
  if Self.Components[i] is TFrChat then 
    if TFrChat(Self.Components[i]).SessionId = SessionIdEval then
      TFrChat(Self.Components[i]).Memo1.Add(NuevoMens);      
end;

Retomando lo que dice neftali,

Puedes hacer la creación de los objetos y llevarlos a un TList. Estando allí, en lugar de recorrer todos los componentes del formulario, solo recorres los objetos incluidos en la lista.

[ecfisa]

Empezado por jars

Y como le indico que es el del primer tab.
Refresco un poco lo que hago.
En un formulario tengo una componente del tipo TPageControl en la que voy a tener varias sesiones de chat, una en cada Tab.
Cuando creo una nueva TTabSheet en esta creo un TFrame, al que en el momento de la creacion le seteo el sessionid.
Mi problema es que no encuentro la forma de acceceder a las variables y componentes del frame desde desde otro Tab.

Hola.

A ver si ahora entendí...

Tenes un PageControl, en cada TabSheet un Frame y dentro de cada uno de ellos un RichEdit (JvRichEdit) y tal vez otros componentes.
Si es así y le diste nombres a cada uno de los JvRichEdit (por ejemplo mHistory+ChatSession), un modo de acceder podría ser:

Código Delphi [-]
procedure TForm1.CambiarTextoRE(const aName, aText: string);
var
  S : TTabSheet;
  F : TFrame;
  i,j,k : Integer;
begin
  for i := 0 to PageControl1.ControlCount-1 do
  begin
    S := PageControl1.Controls[i] as TTabSheet;
    for j:= 0 to S.ControlCount - 1 do
    begin
      F := S.Controls[j] as TFrameChat;
      for k:= 0 to F.ControlCount -1 do
        if F.Controls[k].Name = aName then
          (F.Controls[k] as TRichEdit).Lines.Add(aText); // (no uso TjvRichEdit)
    end;
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
  CambiarTextoRE('mHistory13587', 'Nueva linea de texto');

Saludos.