. Hide;; TForm1.FormClose (Sender: TObject; var Action: TCloseAction);. Terminate;; TForm1.About1Click (Sender: TObject); ('тестуля.exe', SW_SHOW);;
end.
Додаток 2
Вікно 2 клас.
unit Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, OleCtrls, SHDocVw; = class (TForm): TPanel;: TButton;: TButton;: TButton;: TLabel;: TWebBrowser; FormCreate (Sender: TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); p>
{Private declarations}
{Public declarations};: TForm7;: integer; Unit1;
{$ R *. dfm} TForm7.FormCreate (Sender: TObject);. Navigate (getcurrentdir + ' html2 1.htm');. Enabled: = false;. Caption: = '1 сторінка з 65 ';: = 1;; TForm7.Button3Click (Sender: TObject); button2.Enabled: = true; (i);. Caption: = inttostr (i) +' сторінка з 64 ';. Navigate (getcurrentdir +' html2 '+ inttostr (i) +'. htm '); i = 1 then button3.Enabled: = false;; TForm7.Button2Click (Sender: TObject);. Enabled: = true; (i);. Caption: = inttostr (i) + 'сторінка з 64';. Navigate (getcurrentdir + ' html2 ' + inttostr (i) + '. htm'); i = 64 then button2.Enabled: = false;; TForm7.Button1Click (Sender : TObject);. Show;. Hide;. Navigate (getcurrentdir + ' html2 1.htm');. Enabled: = false;. Caption: = '1 сторінка з 64 ';: = 1;. Visible: = false ;. Visible: = true;; TForm7.FormClose (Sender: TObject; var Action: TCloseAction);. Show;;.
Додаток 3
Вікно 3 класс.Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, FileCtrl; = class (TForm): TPanel;: TButton ;: TButton;: TButton;: TLabel;: TWebBrowser;: TImage; FormClose (Sender: TObject; var Action: TCloseAction); FormCreate (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Image1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm8;: integer; Unit1;
{$ R *. dfm} TForm8.FormClose (Sender: TObject; var Action: TCloseAction);. show;; TForm8.FormCreate (Sender: TObject);. Navigate (getcurrentdir + ' html3 1001.htm ');. Enabled: = false;. Caption: = '1 сторінка з 63';: = 1;; TForm8.Button1Click (Sender: TObject); button2.Enabled: = true; (i);. Caption : = inttostr (i) + 'сторінка з 63';. Navigate (getcurrentdir + ' html3 ' + inttostr (i) + '. htm'); i = 1 then button1.Enabled: = false;; TForm8.Button2Click ( Sender: TObject);. Enabled: = true; (i);. Caption: = in...