Разработка учебника по изучению языка Delphi в среде программирования Delphi 5.0

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



utton9Click (Sender: TObject);SpeedButton10Click (Sender: TObject);SpeedButton12Click (Sender: TObject);SpeedButton16Click (Sender: TObject);SpeedButton17Click (Sender: TObject);SpeedButton40Click (Sender: TObject);SpeedButton39Click (Sender: TObject);SpeedButton34Click (Sender: TObject);SpeedButton33Click (Sender: TObject);SpeedButton29Click (Sender: TObject);SpeedButton18Click (Sender: TObject);

{Private declarations}

{Public declarations};: TMainForm;:real;SplashUnit, AbuotUnit, MusikUnit, CloseUnit, InstalUnit;

{$R *.DFM}

// Загрузка главной странички с логотипом (первая загрузка)

procedure TMainForm. FormActivate (Sender: TObject);

//WebBrowser1. Navigate (GetCurrentDir+

'\data\HTML\MainHTML.htm');. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\MainHTML.htm');;

// Бегущая строка в заголовке

procedure TMainForm. Timer1Timer (Sender: TObject);L:integer; c: Char; s:string;:=MainForm. Caption;:=s[1];:=length(s);(s[2], s[1], L-1);[L]:=c;. Caption:=s;;TMainForm. Image1MouseMove (Sender: TObject;: TShiftState; X,: Integer);. Color:=clInactiveBorder;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;

// Форма с музыкойTMainForm. SpeedButton1Click (Sender: TObject);not Assigned(MusikForm) then:= TMusikForm. Create(Self);. ShowModal;

end;

// Скрытие глвной формы и загрузка прощальной формы

procedure TMainForm. SpeedButton2Click (Sender: TObject);. Visible:=false;not Assigned(CloseForm) then:= TCloseForm. Create(Self);.showmodal;;TMainForm. SpeedButton3Click (Sender: TObject);: Word;, p2: array [0..100] of Char;(p1,'test');GetModuleHandle(p1)=0 THEN(p2, ExtractFilePath (ParamStr(0))+'data\progi\test.exe');:=WinExec (p2, SW_Restore);;;TMainForm. SpeedButton2MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;

// Загрузка формы о программе

procedure TMainForm. SpeedButton5Click (Sender: TObject);not Assigned(AboutForm) then:= TAboutForm. Create(Self);. ShowModal;;TMainForm. FormCreate (Sender: TObject);;

// заставкаTMainForm. FormShow (Sender: TObject);. ShowModal;

end;

// Скрытие(появление) управлющей панели

procedure TMainForm. Panel4Click (Sender: TObject);Panel2. Height<>0 then. Height:=0. Height:=97;;

// эфект подсветкиTMainForm. Panel4MouseMove (Sender: TObject; Shift:; X,: Integer);. Color:=clred;;TMainForm. SpeedButton7Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\data_type.htm');;TMainForm. SpeedButton8Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\01.htm');;TMainForm. SpeedButton6Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\What_new.htm');;TMainForm. TabSheet1MouseMove (Sender:; Shift: TShiftState;, Y: Integer);. Color:=clInactiveBorder;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton13Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\palette_of_components.htm');;TMainForm. SpeedButton14Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\asked_types_of_data.htm');;TMainForm. SpeedButton21Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\string_type_of_data.htm');;TMainForm. SpeedButton20Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Struct_type.htm');;TMainForm. SpeedButton19Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\qualifying_types.htm');;TMainForm. SpeedButton15Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Procedure_types.htm');;TMainForm. SpeedButton22Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\workwithform.htm');;TMainForm. SpeedButton28Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\MakeSDI.htm');;TMainForm. SpeedButton26Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\MakeMDI.htm');;TMainForm. SpeedButton27Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Makekons.htm');;TMainForm. SpeedButton25Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\reget.htm');;TMainForm. SpeedButton24Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Optionproject.htm');;TMainForm. SpeedButton23Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Firsttechnol.htm');;TMainForm. SpeedButton30Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Dax.htm');;TMainForm. SpeedButton37Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\library_types.htm');;TMainForm. SpeedButton36Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\element_ActiveX.htm');;TMainForm. SpeedButton35Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\regestry_ActiveX.htm.');;TMainForm. SpeedButton32Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Make_ActiveForm.htm');;TMainForm. SpeedButton31Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Activeform_in_Web.htm');;TMainForm. SpeedButton38Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\test.htm');;TMainForm. SpeedButton45Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\DebugerDelphi.htm');;TMainForm. SpeedButton44Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\PowerDebug.htm');;TMainForm. SpeedButton42Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\FindError.htm');;TMainForm. SpeedButton11Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\LES01.htm');;TMainForm. SpeedButton1MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton5MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton3MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton4Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Halp.htm');;TMainForm. SpeedButton4MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton9Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\02.htm');;TMainForm. SpeedButton10Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\03.htm');;TMainForm. SpeedButton12Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\04.htm');;TMainForm. SpeedButton16Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\05.htm');;TMainForm. SpeedButton17Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\06.htm');;TMainForm. SpeedButton40Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\07.htm');;TMainForm. SpeedButton39Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\08.htm');;TMainForm. SpeedButton34Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\09.htm');;TMainForm. SpeedButton33Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\10.htm');;TMainForm. SpeedButton29Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\11.htm');;TMainForm. SpeedButton18Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\12.htm');;.

Форма Музыка

В этой форме можно выбрать музыку, которая будет сопровождать вас во время изучения электронного учебника.

Рисунок 7 - Форма МУЗЫКА

Программный код формы МУЗЫКА

unit MusikUnit;, Messages, SysUtils, Classes, Graphics,, Forms, Dialogs,, MPlayer, Buttons, jpeg, ExtCtrls;= class(TForm): TMediaPlayer;: TListBox;: TSpeedButton;: TImage;: TSpeedButton;ListBox1Click (Sender: TObject);SpeedButton1Click (Sender: TObject);SpeedButton2Click (Sender: TObject);SpeedButton2MouseMove (Sender: TObject; Shift:; X, Y: Integer);SpeedButton1MouseMove (Sender: TObject; Shift:; X, Y: Integer);Image1MouseMove (Sender: TObject; Shift: TShiftState;, Y: Integer);FormActivate (Sender: TObject);

{Private declarations}

{Public declarations};:TMusikForm;:integer;

{$R