SoloCodigo

ok, pos manos a la obra, gracias por todo

Existe un nuevo lenguje para desarrollo de apicaciones sobre Mozilla llamado XUL y seria interesante un foro sobre el.

No mucho mas, solo decir q es una especie de xml pero con mas potencia y sobre todo mas poder y versatilidad sobre la herramienta mozilla a usar

Resuelto el Problem, aqui va la solución:


procedure TFormPrincipal.StatusBar(Server: TObject; const Text: WideString);
begin
  StatusBarPrincipal.Panels[1].Text := Text;
end;


Esta funcion en OnStatusTextChange y asunto arreglado.

Menuda facilidad cuando se saben las cosas

El ShellExecute perfecto, facil y comodo de usar, aparte de tener muchas opciones

El codigo es como tu dices

ShellExecute (Handle(Formulario desde el q lanzas la aplicacion .handle), Operation(String con el q decides si abrir 'open', imprimir 'print', etc.) , FileName(Path del archivo) ,Parameters (Parametros q se le pasan a tu aplicacion a lanzar, enormemente util, nil si no hay q pasar nada) , Folder (Direccion de las aplicaciones por defecto, tb muy util) , Showcmd (Modo de ejecucion, es decir en pantalla completa, normal, como sea(SW_SHOW,SW_SHOWMAXIMIZED,etc.)) )

Ya q estoy haciendo uno mas o menos, ire poniendo aki mis avances y descubrimientos, asi quedara una discusion muy util para todo aquel q quiera hacer algo asi en el futuro.

El WebBrowser de Delphi esta enganchado al Internet Explorer pero para aquellos q quieran usar Mozila tienen aki la direccion para un plugin para el Mozila, para ponerlo en activex y una libreria de Delphi con el MozillaBrowser.

http://www.iol.ie/~locka/mozilla/mozilla.htm


Un truco para q los botones de adelante y atras siempre tengan una direccion correcta es poner en OnStatusChange del WebBroser o MozillaBrowser esta función:


procedure TFormPrincipal.CambioEstado(Sender: TObject; Command: Integer; Enable: WordBool);
const
  CSC_NAVIGATEFORWARD = $00000001;
  CSC_NAVIGATEBACK = $00000002;

begin
  if (Command = CSC_NAVIGATEFORWARD) then begin
    ToolButtonAdelante.Enabled := Enable;
    Adelante2.Enabled := Enable;
    end
  else if (Command = CSC_NAVIGATEBACK) then begin
    ToolButtonAtras.Enabled := Enable;
    Atrs2.Enabled:= Enable;
    end;
end;



Procedimiento para poner el nombre de la pagina en la barra de estado, este procedimiento se ejecutara en Ontextchange del Web o Mozilla Browser

procedure TFormPrincipal.StatusBar(Server: TObject; const Text: WideString);
begin
  StatusBarPrincipal.Panels[1].Text := Text;
end;

Para mostrar el progreso de carga en una barra de progreso en OnProgressChange del navegador ponemos esto

procedure TFormPrincipal.Progreso(Sender: TObject; Progress, ProgressMax: Integer);
begin
  ProgressBarPrincipal.Position := Round((ProgressMax / Progress) * 100);
  ProgressBarPrincipal.Max := 100;
end;

Seguire luego

Si la idea del onmousemove esta muy bien el problema es q deberia ser algo como onmousemoveoverlink jejeje, bueno, con lo del timer ahorro en borrado, aunq indicando q si no hay link no ponga nada tb resolveria.

Encontre un problema a mi forma y es q te pone el nombre tras irte de la página(Yo ponia el codigo en el WebBrowser en la zona de ondownloadbegin, pero no vale de mucho).

Seguire buscando formas de hacerlo, toy con mi mascara de navegador y espero conseguir q vaya de perlas, si tal despues ya me metere a hacer un navegador completo, es decir los enlaces a servidores y llamadas http


saludos

Bueno ya le pille el truco mas o menos, asi q gracias de todas maneras y si saben truquillos extra adelante.


Me falta saber como escribir al pasar por encima de un enlace la dirección pero sera cosilla de tiempo pillarlo

Bueno pos ahora ya se donde hay iconos, es lo q tiene andar buscando otras cosas

XDDDD

Aki tienes la dirección

http://www.clubdelphi.com/recursos/iconos/

Todo esta relacionado con delphi, estoy haciendo una especie de mascara de navegador o algo parecido y me referia en todo al webbrowser de delphi.


Es decir todas las preguntas se refieren a la herramienta de programacion WebBrowser q tiene delphi