2 replies to this topic

[jcbadillogoy]

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 jcbadillogoy
 
Podrían ser algo así:
 

delphi

for var I := 0 to screen.FormCount - 1 do
  begin
    if screen.Forms[I].Name = 'FrmChat' then
    begin
      screen.Forms[I].WindowState := TWindowState.wsNormal;
      (screen.Forms[I] as TFrmChat).TimerRoster.Enabled := true;
    end;
  end;

Saludos

[jcbadillogoy]

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.  

 

 Gracias