Реферат Розробка мультимедійного електронного підручника з дисципліни "Комп'ютерні мережі"

iants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls, XPMan; = class (TForm): TButton;: TButton;: TButton;: TButton; : TLabel;: TImage;: TXPManifest;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button3Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm1; Unit2, unit3, unit4;

{$ R *. dfm}

Дві процедури наведені нижче, забезпечують перехід з головної форми на кожну з них

procedure TForm1.Button1Click (Sender: TObject);. Show;; TForm1.Button2Click (Sender: TObject);

Form3.Show;

end;

Процедура, що відображає тест для системи тестування

procedure TForm1.Button4Click (Sender: TObject); ('Test.exe', SW_SHOW);;

Процедура закриття формиTForm1.Button5Click (Sender: TObject);. Close;; TForm1.Button3Click (Sender: TObject);.;.

Оригінальний текст модулів. Unit2 - Курс лекцій.Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, OleCtrls, SHDocVw, Buttons; = class (TForm): TListBox;: TWebBrowser;: TButton;: TBitBtn; ListBox1Click ( Sender: TObject); Button1Click (Sender: TObject); BitBtn1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm2;

{$ R *. dfm}

Процедура забезпечує відображення курсу лекцій у вікні WebBrowser

procedure TForm2.ListBox1Click (Sender:

Процедура реалізує вивід на друк курс лекцій

procedure TForm2.BitBtn1Click (Sender: TObject);. ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT);; TForm2.Button1Click (Sender: TObject);. Close;;.

Оригінальний текст модулів. Unit3 - пошук термінів і визначень. p align="justify"> unit Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls; = class (TForm): TButton;: TButton;: TListBox;: TLabel;: TEdit;: TMemo; Button1Click (Sender: TObject); FormCreate (Sender: TObject); ListBox1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm3; unit1;

{$ R *. dfm} Gloss: TStringList; TForm3.Button1Click (Sender: TObject);

Form3.Close;

end;

Процедура додає список термінів і визначень з файлу Глоссарій.txt

procedure TForm3.FormCreate (Sender: TObject); i: integer;: = TStringList.Create;. LoadFromFile ('Глоссарій.txt'); i: = 0 to Gloss.Count-1 do begin . Items.Add (Gloss.Names [i]);;

Назад | сторінка 12 з 15 | Наступна сторінка