Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.Add(Mynode,edit1.text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TreeView1.Items.AddChild(Mynode,edit1.text);
end;
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
mynode:= Node;
x:= Node.AbsoluteIndex;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
TreeView1.Items[x].Delete();
end;
end.
Отчет Web Bouser
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure FormCreate(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('WWW.ya.ru');
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
WebBrowser1.Navigate( edit1.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.Stop;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
edit1.Text:= WebBrowser1.LocationURL;
end;
end.
