Delphi-де жұмыс істеу


Қосымша Комплекстік бағдарламалардың берілген формасы: Оңтүстік Қазақстан Ашық университеті



жүктеу/скачать 8,16 Mb.
бет22/23
Дата25.04.2022
өлшемі8,16 Mb.
#32147
1   ...   15   16   17   18   19   20   21   22   23
Байланысты:
Дип.-Delphi-ортасында-МФТ-пәні-бойынша-электрондық-оқулық-құру (1)

4 Қосымша
Комплекстік бағдарламалардың берілген формасы:


Оңтүстік Қазақстан Ашық университеті











БаҒдарлама мӘтінініҢ листингісі



unit Unit1

interface

uses

Windows, Messages, SysUtils, Variants, Classes,



Graphics, Controls, Forms,

Dialogs, ExtCtrls, OleCtrls, SHDocVw, StdCtrls,

ComCtrls, Buttons;

type


TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

Animate1: TAnimate;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }



end;

var


Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin


form1.Hide;

form2.showmodal;

form1.Close;

end; end.

unit Unit2

interface

uses

Windows, Messages, SysUtils, Variants, Classes,



Graphics, Controls, Forms,

Dialogs, ExtCtrls, OleCtrls, SHDocVw, Buttons, jpeg;

type

TForm2 = class(TForm)



WebBrowser1: TWebBrowser;

Panel1: TPanel;

Panel2: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

Image1: TImage;

SpeedButton4: TSpeedButton;

Image2: TImage;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

SpeedButton13: TSpeedButton;

SpeedButton14: TSpeedButton;

SpeedButton15: TSpeedButton;

SpeedButton16: TSpeedButton;

SpeedButton17: TSpeedButton;

SpeedButton18: TSpeedButton;

SpeedButton19: TSpeedButton;

SpeedButton20: TSpeedButton;

SpeedButton21: TSpeedButton;

SpeedButton22: TSpeedButton;

SpeedButton23: TSpeedButton;

SpeedButton24: TSpeedButton;

SpeedButton25: TSpeedButton;

SpeedButton26: TSpeedButton;

SpeedButton27: TSpeedButton;

SpeedButton28: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton15Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure WebBrowser1CommandStateChange

(Sender: TObject; Command: Integer; Enable: WordBool);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton14Click(Sender: TObject);

procedure SpeedButton20Click(Sender: TObject);

procedure SpeedButton19Click(Sender: TObject);

procedure SpeedButton23Click(Sender: TObject);

procedure SpeedButton27Click(Sender: TObject);

procedure SpeedButton21Click(Sender: TObject);

procedure SpeedButton22Click(Sender: TObject);

procedure SpeedButton24Click(Sender: TObject);

procedure SpeedButton25Click(Sender: TObject);

procedure SpeedButton26Click(Sender: TObject);

procedure SpeedButton28Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;


var

Form2: TForm2;

bool:boolean;

implementation

uses Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin


if bool then begin

bool:=false;

panel2.Visible:=false;

speedbutton1.Glyph.LoadFromFile('c:\program files\book\image\men1.bmp');

exit;

end;


bool:=true;

panel2.Visible:=true;

speedbutton1.Glyph.LoadFromFile('c:\program files\book\image\men2.bmp');

end;


procedure TForm2.FormCreate(Sender: TObject);

begin


form2.Font.Name:='kzarial';

form2.Caption:='Электронды оу?лы?';

{ menu}

speedbutton6.Left:=0;

speedbutton6.top:=32;

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

end;


procedure TForm2.SpeedButton4Click(Sender: TObject);

begin


webbrowser1.GoForward;

end;


procedure TForm2.SpeedButton6Click(Sender: TObject);

begin


if bool then begin

bool:=false;

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

{--------------------}

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;


{--------------------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;

end;


bool:=true;

speedbutton7.Visible:=true;

speedbutton8.Visible:=true;

speedbutton9.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=144;

speedbutton19.Left:=0;

speedbutton19.top:=176;

speedbutton23.Left:=0;

speedbutton23.top:=208;

speedbutton27.Left:=0;

speedbutton27.top:=240;

webbrowser1.Navigate('c:\program files\book\lection\glav.mht');

end;

procedure TForm2.SpeedButton10Click(Sender: TObject);



begin

if bool then begin

bool:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

{----------}

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

{----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;


end;

bool:=true;

speedbutton11.Visible:=true;

speedbutton12.Visible:=true;

speedbutton13.Visible:=true;

speedbutton14.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=200;

speedbutton23.Left:=0;

speedbutton23.top:=232;

speedbutton27.Left:=0;

speedbutton27.top:=264;

webbrowser1.Navigate('c:\program files\book\lection\glav2.mht');

end;

procedure TForm2.SpeedButton15Click(Sender: TObject);



begin

author.show;

end;

procedure TForm2.SpeedButton16Click(Sender: TObject);



begin

aboutbox.show;

end;

procedure TForm2.FormActivate(Sender: TObject);



begin

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

end;

procedure TForm2.SpeedButton7Click(Sender: TObject);



begin

//tar1, lek1

webbrowser1.Navigate('c:\program files\book\lection\lec1.htm');

end;


procedure TForm2.WebBrowser1CommandStateChange(Sender: TObject;

Command: Integer; Enable: WordBool);

begin

case Command of



CSC_NAVIGATEBACK: speedbutton3.Visible:=enable;

CSC_NAVIGATEFORWARD: speedbutton4.Visible := enable;

end;

end;


procedure TForm2.SpeedButton3Click(Sender: TObject);

begin


webbrowser1.GoBack;

end;


procedure TForm2.SpeedButton17Click(Sender: TObject);

begin


showmessage('Dalshe hoda netu');

end;


procedure TForm2.SpeedButton2Click(Sender: TObject);

begin


showmessage('Dalshe hoda netu');

end;


procedure TForm2.SpeedButton5Click(Sender: TObject);

begin


WinExec('c:\program files\book\test\project2.exe',

SW_SHOW); form2.WindowState:=wsminimized;

end;


procedure TForm2.SpeedButton8Click(Sender: TObject);

begin


//tar1,lek2

webbrowser1.Navigate('c:\program files\book\lection\lec2.htm');

end;

procedure TForm2.SpeedButton9Click(Sender: TObject);



begin

//tar1, lek3

webbrowser1.Navigate('c:\program files\book\lection\lec3.htm');

end;


procedure TForm2.SpeedButton11Click(Sender: TObject);

begin


//tar2,lek1

webbrowser1.Navigate('c:\program files\book\lection\lec4.htm');

end;

procedure TForm2.SpeedButton12Click(Sender: TObject);



begin

//tar2,lek2

webbrowser1.Navigate('c:\program files\book\lection\lec5.htm');

end;


procedure TForm2.SpeedButton13Click(Sender: TObject);

begin


//tar2,lek3

webbrowser1.Navigate('c:\program files\book\lection\lec6.htm');

end;

procedure TForm2.SpeedButton14Click(Sender: TObject);



begin

//tar2,lek4

webbrowser1.Navigate('c:\program files\book\lection\lec7.htm');

end;


procedure TForm2.SpeedButton20Click(Sender: TObject);

begin


//tar3,lek1

end;


procedure TForm2.SpeedButton19Click(Sender: TObject);

begin


if bool then begin

bool:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

{----------}

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

{----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;

end;


bool:=true;

speedbutton20.Visible:=true;

speedbutton21.Visible:=true;

speedbutton22.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=208;

speedbutton27.Left:=0;

speedbutton27.top:=240;

webbrowser1.Navigate('c:\program files\book\lection\glav3.mht');

end;

procedure TForm2.SpeedButton23Click(Sender: TObject);



begin

if bool then begin

bool:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

{----------}

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

{----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;


end;

bool:=true;

speedbutton24.Visible:=true;

speedbutton25.Visible:=true;

speedbutton26.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=240;

webbrowser1.Navigate('c:\program files\book\lection\glav4.mht');

end;


procedure TForm2.SpeedButton27Click(Sender: TObject);

begin


//Misaldar

webbrowser1.Navigate('c:\program files\book\lection\mis.htm');

speedbutton6.Left:=0;

speedbutton6.top:=32;

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

{-----------------------}

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;
speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

end;


procedure TForm2.SpeedButton21Click(Sender: TObject);

begin


//tar3 lek2

end;


procedure TForm2.SpeedButton22Click(Sender: TObject);

begin


//tar3.lek3

end;


procedure TForm2.SpeedButton24Click(Sender: TObject);

begin


//tar4,lek1

end;


procedure TForm2.SpeedButton25Click(Sender: TObject);

begin


//tar4,lek2

end;


procedure TForm2.SpeedButton26Click(Sender: TObject);

begin


//tar4,lek3

end;


procedure TForm2.SpeedButton28Click(Sender: TObject);

begin


GET.show;

end;


end.

жүктеу/скачать 8,16 Mb.

Достарыңызбен бөлісу:
1   ...   15   16   17   18   19   20   21   22   23



©emirsaba.org 2024
әкімшілігінің қараңыз
    Басты бет
Lessons
Curriculum vitae
Documents