Que error estoy cometiendo en la siguiente sintaxis

[Badillo]

Saludos,

Que error estoy cometiendo en la siguiente sintaxis:

Código Delphi [-]
        
if Screen.Forms[i].Name = 'FrmChat' then
begin

  Screen.Forms[i].WindowState := wsNormal;
          
  //De esta forma emite el siguiente error
  //Project Test.exe raised exception class $C0000005 with message 'access violation at 0x0060cffc: read of address 0x00000048'
  Screen.Forms[i].TimerRoster.Enabled := true;      

  //De esta forma emite el siguiente error
  //Project Test.exe raised exception class $C0000005 with message 'access violation at 0x0060cffc: read of address 0x00000048'
  TFrmChat(Screen.Forms[i]).TimerRoster.Enabled := true;      

  //De esta forma funciona bien
  FrmChat.TimerRoster.Enabled := true;

end;

O cual es la diferencia en entre esas asignaciones.

Me gustaría lograr que funcinara de la primera o segunda forma.

Gracias y espero por sus consejos

[[egostar]]

Hola

Así podrías solucionarlo

Saludos

[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.

[Garada]

Comprueba con el debugger que el form de nombre FrmChat es de la clase TFrmChat y que TimerRoster no sea nil.

Yo lo cambiaría por

Código Delphi [-]
if Screen.Forms[i] is  TFrmChat then
begin
  Screen.Forms[i].WindowState := wsNormal;

  if Assigned(TFrmChat(Screen.Forms[i]).TimerRoster) then
    TFrmChat(Screen.Forms[i]).TimerRoster.Enabled := true;      
end;

Entiendo que TimerRoster es un componente que has añadido al form. Si es así la línea que da el primer error creo que no debería ni compilar.

[Badillo]

Saludos, Garada

La aplicación, compila bien y funciona, este segmento de código es parte del Logout que está implementado, pero después que comenzamos con la ventana del Chat, es que ha comenzado a dar el error. El TimRoster es un TTimer que está en el formulario TFrmChat.

Básicamente lo que hace es minimizar todas las ventanas abiertas y si cancela la salida de la app, entonces restauramos todas las ventanas con el mismo estado que tenía, pero en el caso del Chat da error eventualmente en esa línea.

Gracias y probaré tu propuesta.

[[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;