Ir al contenido


Foto

Que error estoy cometiendo en la siguiente sintaxis

Delphi Programación

  • Por favor identifícate para responder
2 respuestas en este tema

#1 jcbadillogoy

jcbadillogoy

    Newbie

  • Miembros
  • Pip
  • 4 mensajes

Escrito 20 octubre 2023 - 09:05

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
 

  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.459 mensajes
  • LocationMéxico

Escrito 20 octubre 2023 - 09:26

Hola jcbadillogoy
 
Podrían ser algo así:
 


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

Saludos


  • 0

#3 jcbadillogoy

jcbadillogoy

    Newbie

  • Miembros
  • Pip
  • 4 mensajes

Escrito 20 octubre 2023 - 10:18

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


  • 0





Etiquetado también con una o más de estas palabras: Delphi, Programación

IP.Board spam blocked by CleanTalk.