Results 1 to 4 of 4

Thread: Mijn eigen webbrowser

  1. #1

    Mijn eigen webbrowser

    Beste nldelphi members,


    Ik ben sinds kort bezig met delphi en heb al wat programmatjes gemaakt waar ik best tevreden over ben. Nu ben ik bezig met mijn eigen webbrowser. Hij werkt mooi en met de enter toets gaat hij ook automatisch naar de site ingevuld in het balkje. Alleen nu wil ik ook maken dat hij de caption van het form verandert naar webbrowser1.locationname; en de text in het balkje verandert naar webbrowser1.locationurl; Als ik het gewoon zo heb:

    form2.caption:=(webbrowser1.locationname);

    werkt het niet. De caption van form2 is veranderd naar de name van de vorige site.

    Alvast erg bedankt voor het medewerken


    Niek,

    PS: Weten jullie ook hoe ik de 'pageback' knop enabled maak als er geen vorige site is? En hetzelfde voor 'pageforward'?

    PPS: Mijn webbrowser word niet in de taakbalk onderaan weergegeven. Valt dat ook te verhelpen? Mijn borderstyle is 'bsdialog'.

    PPPS: Ik weet dat ik veel vraag maar jullie hoeven ook niet alles te beantwoorden maar hoe maak ik dat hij bij een pop-up een nieuw venster aanmaakt met daarin de site of zelfs dat hij een nieuwe tab maakt? BEDANKT!!!

  2. #2
    Delphi 3 + 5 + 6 scs's Avatar
    Join Date
    Nov 2002
    Location
    Heerhugowaard
    Posts
    751
    Vorige en volgende button:
    Code:
    {
      When hosting the TWebbrowser control, it may be desirable to implement
      Forward/Back/Cancel buttons similar to those that Internet Explorer implements.
      The WebBrowser control supports a CommandStateChange() event,
      which is fired whenever the Forward/Back/Cancel button need to be enabled or disabled.
      The CommandStateChange event is sent with two parameters: a constant indicating
      the type of button (CSC_NAVIGATEFORWARD or CSC_NAVIGATEBACK or CSC_UPDATECOMMANDS),
      and a Boolean flag indicating whether to enable or disable the button.
    }
    
    
    // Navigate to a URL
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Webbrowser1.Navigate('www.SwissDelphiCenter.com');
    end;
    
    // Catch the events and set a button's Enabled state
    procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject;
      Command: Integer; Enable: WordBool);
    begin
      case Command of
        CSC_NAVIGATEBACK: ButtonBack.Enabled := Enable;
        CSC_NAVIGATEFORWARD: ButtonForward.Enabled := Enable;
        CSC_UPDATECOMMANDS: ButtonCancel.Enabled := Enable;
      end;
    end;
    
    procedure TForm1.ButtonBackClick(Sender: TObject);
    begin
      WebBrowser1.GoBack
    end;
    
    procedure TForm1.ButtonForwardClick(Sender: TObject);
    begin
      WebBrowser1.GoForward
    end;
    
    procedure TForm1.ButtonCancelClick(Sender: TObject);
    begin
      WebBrowser1.Stop;
    end;
    Geleend vanaf 'www.SwissDelphiCenter.com'.

  3. #3

  4. #4
    • Titel aangepast, was "Mijn eigen website", zie 3 seconden
    Marcel

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •