Ver Mensaje Individual
  #3  
Antiguo 26-04-2014
Avatar de danielmj
danielmj danielmj is offline
Miembro
 
Registrado: jun 2011
Posts: 383
Reputación: 16
danielmj Va por buen camino
Hola Edwardfeliz, no es necesario, ya encontré la solución. Resulta que no había tal error, era mas bien un problema de diseño del formulario, me explico, en el form hay un memo que tiene o debe tener unas medidas exactas, ¿que pasaba si estas medidas no eran las correctas? pues que el texto dentro de este memo, "sufría" saltos de linea cuando no procedía y esto está en relación con el siguiente procedimiento:

Código Delphi [-]
procedure TytRepro.Button3Click(Sender: TObject); 
begin   
   listBox2.ItemIndex:= listBox1.ItemIndex;   
   memo1.Lines.Strings[1]:= ''+ listBox2.Items[listBox2.ItemIndex];   
   memo1.Lines.Strings[4]:= ''+ listBox2.Items[listBox2.ItemIndex];   
   memo1.Lines.SaveToFile('codigo.html');    

   web.Navigate(ExtractFilePath(ParamStr(0))+'codigo.html'); end;
Como se puede ver, se hace mención a las lineas 1 y 4 del memo, con lo cual si en este se producía un salto de linea, el valor del listBox2.itemIndex lo insertaba en el lugar que no debía, con lo cual ya el código html (que era el texto del memo) no era correcto y no se lanzaba el reproductor de Youtube.
De todos modos, por tu comentario, creo que no me explique bien, cuando hablaba de un componente, lo hice a modo de buscar alternativas a mi problema, pero como puedes ver, se ha solucionado a base de código, por lo que no tengo necesidad de usar ese componente.

Aquí una captura de la solución del error:


Saludos.
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes.
Responder Con Cita