Navigateur web...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 473 fois - Téléchargée 31 fois

Contenu du snippet

C'est un navigateur tres simple a utiliser et a programmer puisque qu'il n'y a que 3 ligne de code à rajouter manuellent.

Source / Exemple :


unit Web_browset;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ComCtrls, OleCtrls, SHDocVw_TLB;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Quitter1: TMenuItem;
    Info1: TMenuItem;
    About1: TMenuItem;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    WebBrowser1: TWebBrowser;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    Form1.WebBrowser1.Navigate(Edit1.Text);           /ca je lai ajouté/
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    WebBrowser1.GoBack;        /ca je lai ajouté/
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
     WebBrowser1.GoForward;   /ca je lai ajouté/
end;

procedure TForm1.Quitter1Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
showmessage('Web_browser v1.0 http://www.multimania.com/pyknite')
end;

end.

A voir également

Ajouter un commentaire

Commentaires

jia2812
Messages postés
57
Date d'inscription
mardi 17 avril 2001
Statut
Membre
Dernière intervention
10 janvier 2003
-
Ah ça oui!!!!
Hyper simple comme prog'!!!
Cé sûr qu'avec ça, on risque pô d'se prendre la tête à savoir comment programmer correctement 1 browser Web!!! En tout cas, pas mauvais Pyknite! Je pense que tu réussiras à le développer & à faire mieux que ça!!!
cs_DraZiK
Messages postés
3
Date d'inscription
mardi 18 février 2003
Statut
Membre
Dernière intervention
19 février 2003
-
Tu te fout vraiment de la gueule des gens !
Faudrait voire à ne pâs abuser, ce genre de site permet d'aider les développeurs en détresse, pas de promouvoir la bétise humaine ...
En tous les cas tes touches <Control>, <C> et <V> doivent êtres usées ...
DraZiK[Nowhere]
cs_damrod
Messages postés
7
Date d'inscription
vendredi 12 mars 2004
Statut
Membre
Dernière intervention
8 octobre 2004
-
non c un code simple

donc pour un debutant delphi c plus pratique que d'ouvrir le code d'un clone complet d'ie6 !!!

faut se calmer moije suis plus debutant mais qd je cherche un truc ca m'arrive de regarder ds des bouts de code tout con....c plus comprehensible dans bien des cas que le gros bouquin de 1000p remplis de blabla...
speletux
Messages postés
31
Date d'inscription
jeudi 31 mars 2005
Statut
Membre
Dernière intervention
6 février 2014
-
Pour apprendre la prog Delphi (ou autre), il faut faire des petits exercices divers (sur les variables, les boucles, les algorithmes, utilisation des fonctions, etc ...) et non des copier/coller ou des assemblages de composants par drag n drop.
Et lire beaucoup et travailler avec un papier et un crayon !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.