Info Delphi

La magia de la programación a tu alcance

Navegando por la web

Hola a todos,

¿Te parecen pesados los actuales navegadores web? ¿No te gusta navegar por la World Wide Web, con los navegadores habituales del mercado? ¿Has pensado en hacerte tu propio navegador?

Con nuestro querido Delphi, y en solo unos pocos clicks de ratón, podrás estar navegando antes de darte cuenta.

Vamos al lío, crea un nuevo proyecto con la opción New Application del menú File, inserta ahora un TWebBrowser que encontrarás en la paleta Internet, redimensionalo dejando espacio en la parte superior, donde deberás colocar un TEdit que nos servirá para escribir la dirección web.

La parte de diseño ya esta terminada, ¿fácil, verdad?

Vamos ahora a implementar el código propiamente dicho.

Edita la propiedad KeyPreview del formulario y cámbiala a true, de esta forma, cuando escribamos una dirección web en el TEdit y pulsemos Enter directamente se ejecutará nuestro procedimiento.

Haz una doble pulsación sobre el evento OnKeyPress y escribe el código que aparece a continuación.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
{Detectamos la pulsación de la tecla Enter}
if key = #13 then begin
{Cargamos la dirección en el navegador}
WebBrowser1.Navigate(WideString(Edit1.Text));
{Limpiamos el buffer del teclado}
key:= #0;
end;
end;

Como verás es muy fácil implementar un pequeño navegador web, lógicamente, no tendrás navegación por pestañas, ni soporte javascript, pero claro, para eso ya existen otros navegadores.

Te dejo a ti la implementación de otras utilidades, como un botón para retroceder en el historial, almacenar las páginas visitadas, o crear marcadores.

Saludos

Anuncios

Viernes, 23 enero 2009 - Posted by | Delphi

Aún no hay comentarios.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: