Que error estoy cometiendo en la siguiente sintaxis

[[egostar]]

Empezado por Badillo

Saludos,

Cuando pruebo me retorna este otro error: raised exception class EInvalidCast with message 'Invalid class typecast', sin embrago anteriormente si me permite ponerle falso algo me dice que por x razón se pierde el valor de ese objeto.

Pues a menos que estés tratando de asignar objetos diferentes, no veo el porqué. Si nos das un poco mas de información de los procesos que sigues, tal vez podríamos ver porque pasa esto.

Saludos

[[duilioisola]]

Verifica que cumple con todas las condiciones.

Código Delphi [-]
if Screen.Forms[i].Name = 'FrmChat' then
begin
  if (Assigned(Screen.Forms[i])) then
  begin
    if (Screen.Forms[i] is TFrmChat) then
    begin
      if (Assigned(TFrmChat(Screen.Forms[i]).TimerRoster) then
      begin
         TFrmChat(Screen.Forms[i]).TimerRoster.Enabled := true;      
      end
      else
           ShowMessage('TimerRoster no asignado')
    end
    else
       ShowMessage('Formulario nos es tpo TFrmChat');
  end
  else
     ShowMessage('Formulario no asignado');

[Badillo]

Gracias por la idea [duilioisola] El error que siempre me muestra es

Código Delphi [-]
ShowMessage('Formulario no asignado');

y entonces con el siguiente código, el más sencillo

Código Delphi [-]
FrmChat.TimerRoster.Enabled := true;

No me ha mostrado más el error. Al final estoy garantizando que es el nombre del fromulario.

Gracias a todos por la ayuda.

[[duilioisola]]

Verifica que el formulario está activo.
Si Assigned(x) es falso, quiere decir que x = null.
Esto podría darse si el formulario se ha cerrado o algo por el estilo.

[[duilioisola]]

Para debugar pon un TMemo en la ventana principal y un timer que ejecute algo que te muestre las ventanas de Screen.

Ejemplo

Código Delphi [-]
procedure TFMPrincipal.OnTimer(Sender: TObject);
var
  i : integer;
  s : string;
begin
  inherited;
  // Limpio el memo
  MDebug.Lines.Clear;

  // Recorro las ventanas de Screen
  for i := 0 to Screen.FormCount -1 do
  begin
    if Assigned(Screen.Forms[i]) then
       s := 'Assigned'
    else
       s := 'NOT Assigned';

    // Nro de ventana, Nombre y si apunta a un formulario nulo
    MDebug.Lines.Add(format('%d - Formulario: %s - %s', [i, Screen.Forms[i].Name, s]));
  end;
end;