Męczę się, żeby do mojej przeglądarki wstawić zakładki. Użyłem: http://www.forumpc.pl/index.php?showtopic=143810 jednak niestety mam problemy. Wersja Delphi: 7 Personal.
Kod:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, OleCtrls, SHDocVw_TLB, ComCtrls,
Gauges, Menus, Unit2;
type
TTajfun = class(TForm)
WebBrowser1: TWebBrowser_V1;
Panel1: TPanel;
WsteczPrzycisk: TSpeedButton;
DalejPrzycisk: TSpeedButton;
ZatrzymajPrzycisk: TSpeedButton;
OdswiezPrzycisk: TSpeedButton;
Pasekadr: TEdit;
IdzPrzycisk: TSpeedButton;
Panel2: TPanel;
Pasekpost: TProgressBar;
StronadomPrzycisk: TSpeedButton;
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
N1: TMenuItem;
Print1: TMenuItem;
N2: TMenuItem;
SaveAs1: TMenuItem;
Edit2: TMenuItem;
Find1: TMenuItem;
N4: TMenuItem;
Paste1: TMenuItem;
Copy1: TMenuItem;
Cut1: TMenuItem;
N5: TMenuItem;
Undo1: TMenuItem;
Help1: TMenuItem;
Aktualizacje: TMenuItem;
SzukajPole: TEdit;
SzukajPrzycisk: TSpeedButton;
Stronadomowa1: TMenuItem;
Oprogramie1: TMenuItem;
PageControl1: TPageControl;
NowakartaPrzycisk: TSpeedButton;
procedure IdzPrzyciskClick(Sender: TObject);
procedure WsteczPrzyciskClick(Sender: TObject);
procedure DalejPrzyciskClick(Sender: TObject);
procedure ZatrzymajPrzyciskClick(Sender: TObject);
procedure OdswiezPrzyciskClick(Sender: TObject);
procedure WebBrowser1TitleChange(ASender: TObject;
const Text: WideString);
procedure FormCreate(Sender: TObject);
procedure WebBrowser1ProgressChange(ASender: TObject; Progress,
ProgressMax: Integer);
procedure PasekadrKeyPress(Sender: TObject; var Key: Char);
procedure SzukajPoleKeyPress(Sender: TObject; var Key: Char);
procedure SzukajPrzyciskClick(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Stronadomowa1Click(Sender: TObject);
procedure Oprogramie1Click(Sender: TObject);
procedure PasekadrClick(Sender: TObject);
procedure AktualizacjeClick(Sender: TObject);
procedure SzukajPoleClick(Sender: TObject);
procedure NowakartaPrzyciskClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Tajfun: TTajfun;
implementation
{$R *.dfm}
procedure TTajfun.IdzPrzyciskClick(Sender: TObject);
begin
WebBrowser1.Navigate(Pasekadr.Text);
end;
procedure TTajfun.WsteczPrzyciskClick(Sender: TObject);
begin
WebBrowser1.GoBack;
end;
procedure TTajfun.DalejPrzyciskClick(Sender: TObject);
begin
WebBrowser1.GoForward;
end;
procedure TTajfun.ZatrzymajPrzyciskClick(Sender: TObject);
begin
WebBrowser1.Stop;
end;
procedure TTajfun.OdswiezPrzyciskClick(Sender: TObject);
begin
WebBrowser1.Refresh;
end;
procedure TTajfun.WebBrowser1TitleChange(ASender: TObject;
const Text: WideString);
begin
Tajfun.Caption := text;
end;
procedure TTajfun.FormCreate(Sender: TObject);
begin
WebBrowser1.GoHome;
licz := 0;
end;
procedure TTajfun.WebBrowser1ProgressChange(ASender: TObject; Progress,
ProgressMax: Integer);
begin
Pasekpost.Max := ProgressMax; Pasekpost.Position := Progress;
end;
procedure TTajfun.PasekadrKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
WebBrowser1.Navigate(Pasekadr.Text);
end;
end;
procedure TTajfun.SzukajPoleKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
WebBrowser1.Navigate('http://google.pl/search?q=' + SzukajPole.Text);
end;
end;
procedure TTajfun.SzukajPrzyciskClick(Sender: TObject);
begin
WebBrowser1.Navigate('http://google.pl/search?q=' + SzukajPole.Text);
end;
procedure TTajfun.Exit1Click(Sender: TObject);
begin
Close;
end;
procedure TTajfun.Stronadomowa1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://programy-oldshaterhana.yoyo.pl/')
end;
procedure TTajfun.Oprogramie1Click(Sender: TObject);
begin
Oprogramie.Show;
end;
procedure TTajfun.PasekadrClick(Sender: TObject);
begin
Pasekadr.SelectAll;
end;
procedure TTajfun.AktualizacjeClick(Sender: TObject);
begin
WebBrowser1.Navigate('http://programy-oldshaterhana.yoyo.pl/20a4.html')
end;
procedure TTajfun.SzukajPoleClick(Sender: TObject);
begin
SzukajPole.SelectAll;
end;
procedure TTajfun.NowakartaPrzyciskClick(Sender: TObject);
var zakladka : TTabSheet;
begin
zakladka[licz]:=TTabSheet.Create(PageControl1);
zakladka[licz].Caption:='Zakładka'+IntToStr(licz);
zakladka[licz].PageControl:=PageControl1;
zakladka[licz].Parent := PageControl1;
PageControl1.ActivePage :=zakladka[licz];
web[licz]:=TWebBrowser.Create(zakladka[licz]);
TWinControl(web[licz]).Parent := zakladka[licz];
web[licz].Align:=alClient;
if PageControl1.ActivePageIndex=0 then
WebBrowser1.Navigate(Edit1.Text)
else
web[PageControl1.ActivePageIndex].Navigate(Edit1.Text);
Inc(licz);
end;
end.
Błędy:
[Error] Unit1.pas(119): Undeclared identifier: 'licz'
[Error] Unit1.pas(187): Class does not have a default property
[Error] Unit1.pas(188): Class does not have a default property
[Error] Unit1.pas(189): Class does not have a default property
[Error] Unit1.pas(190): Class does not have a default property
[Error] Unit1.pas(191): Class does not have a default property
[Error] Unit1.pas(192): Undeclared identifier: 'web'
[Error] Unit1.pas(192): Class does not have a default property
[Error] Unit1.pas(193): Class does not have a default property
[Error] Unit1.pas(194): Missing operator or semicolon
[Error] Unit1.pas(199): Missing operator or semicolon
[Fatal Error] Tajfun1.dpr(6): Could not compile used unit 'Unit1.pas'
Wie ktoś z Was co jest nie tak?