Культин Н.Б. «Основы программирования в Delphi 7».- СПб.: БХВ Петербург, 2004.- 597 с.
Приложение А
Текст программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, ComCtrls, acProgressBar, jpeg, sSkinManager,, Buttons, sSpeedButton, StdCtrls;
= class(TForm): TsSkinProvider;: TsSkinManager;: TImage;: TsSpeedButton;: TsSpeedButton;: TLabel;: TLabel;btn2Click(Sender: TObject);btn1Click(Sender: TObject);btn1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);btn1MouseLeave(Sender: TObject);lbl1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);btn2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);btn2MouseLeave(Sender: TObject);lbl2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);
{ Private declarations }
{ Public declarations };
: TForm1;
, Unit5, Unit8;
{$R *.dfm}
TForm1.btn2Click(Sender: TObject);;;
TForm1.btn1Click(Sender: TObject);.Hide;.Show;;
TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=True;;
TForm1.btn1MouseLeave(Sender: TObject);.Visible:=False;;
TForm1.lbl1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=False;.Visible:=False;;
TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=False;.Visible:=False;;
TForm1.btn2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=True;;
TForm1.btn2MouseLeave(Sender: TObject);.Visible:=False;;
TForm1.lbl2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=False;.Visible:=False;;
.Unit2;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls, acPNG, XPMan, StdCtrls, Buttons, sBitBtn;
= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TMenuItem;: TMenuItem;: TImage;: TImage;: TMenuItem;: TOpenDialog;: TsBitBtn;: TMenuItem;: TImage;: TImage;FormClose(Sender: TObject; var Action: TCloseAction);N4Click(Sender: TObject);img2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img3MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img4MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);FormCreate(Sender: TObject);img7Click(Sender: TObject);img6Click(Sender: TObject);img5Click(Sender: TObject);N1Click(Sender: TObject);N5Click(Sender: TObject);FormHide(Sender: TObject);N6Click(Sender: TObject);img8MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);img9Click(Sender: TObject);N7Click(Sender: TObject);N3Click(Sender: TObject);N2Click(Sender: TObject);sbtbtn1Click(Sender: TObject);img10MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);N8Click(Sender: TObject);img11Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm2;
, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}
TForm2.FormClose(Sender: TObject; var Action: TCloseAction);.Close;;
TForm2.N4Click(Sender: TObject);messagedlg ('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;
TForm2.img2MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=True;.Visible:=false;.Visible:=false;.Visible:=False;.Visible:=false;.Visible:=True;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=false;;
TForm2.img1MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=false;
;
TForm2.img3MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=false;.Visible:=True;.Visible:=false;.Visible:=true;.Visible:=False;.Visible:=true;.Visible:=false;.Visible:=True;.Visible:=true;.Visible:=false;
;
TForm2.img4MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=false;.Visible:=True;.Visible:=false;.Visible:=true;.Visible:=true;.Visible:=False;.Visible:=false;.Visible:=True;.Visible:=true;.Visible:=false;;
TForm2.FormCreate(Sender: TObject);.Top:=img2.top;.Left:=img2.Left;.Top:=img3.top;.Left:=img3.Left;.Top:=img4.top;.Left:=img4.Left;;TForm2.img7Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;
TForm2.img6Click(Sender: TObject);.Hide;.show;;
TForm2.img5Click(Sender: TObject);.Hide;.show;;
TForm2.N1Click(Sender: TObject);.Hide;.show;;
TForm2.N5Click(Sender: TObject);.Hide;.show;;
TForm2.FormHide(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=false;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;
;
TForm2.N6Click(Sender: TObject);.Show;.Hide;;
TForm2.img8MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=false;;
TForm2.img9Click(Sender: TObject);.Show;.Hide;;
TForm2.N7Click(Sender: TObject);.Show;.Hide;;
TForm2.N3Click(Sender: TObject);.show;;
TForm2.N2Click(Sender: TObject);.show;;
TForm2.sbtbtn1Click(Sender: TObject);dlgOpen1.Execute then.Picture.LoadFromFile(dlgOpen1.FileName);;
TForm2.img10MouseMove(Sender: TObject; Shift: TShiftState; X,: Integer);.Visible:=True;.Visible:=False;.Visible:=true;.Visible:=false;.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;;
TForm2.N8Click(Sender: TObject);.Show;.Hide;;
TForm2.img11Click(Sender: TObject);.Show;.Hide;;
.Unit3;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, sTreeView, OleCtrls, SHDocVw, StdCtrls, sButton, Menus;
= class(TForm): TWebBrowser;: TsTreeView;: TsButton;: TsButton;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;FormClose(Sender: TObject; var Action: TCloseAction);sTreeView1DblClick(Sender: TObject);sButton1Click(Sender: TObject);sButton2Click(Sender: TObject);N1Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm3;
Unit2, Unit1, Unit4, Unit5, Unit8;
TForm3.FormClose(Sender: TObject; var Action: TCloseAction);.Close;;
TForm3.sTreeView1DblClick(Sender: TObject);streeview1.Items.Item[1].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\biblvcl.htm');streeview1.Items.Item[2].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\klastcomp.htm');streeview1.Items.Item[4].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\svvavkomp.htm');streeview1.Items.Item[5].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\sobitiya.htm');streeview1.Items.Item[3].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\metodi.htm');streeview1.Items.Item[6].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\библиотека VCL\tipymetod.htm');streeview1.Items.Item[8].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\создание визуальных компонент\proverka.htm');streeview1.Items.Item[9].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\создание визуальных компонент\isxkod.htm');streeview1.Items.Item[10].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\создание визуальных компонент\realiz.htm');streeview1.Items.Item[12].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\стандартные компоненты\elemypr.htm');streeview1.Items.Item[13].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\стандартные компоненты\additional.htm');streeview1.Items.Item[14].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\стандартные компоненты\intfakt.htm');streeview1.Items.Item[16].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\Создание не визуальных компонент\dialog.htm');streeview1.Items.Item[17].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\Создание не визуальных компонент\mainform.htm');streeview1.Items.Item[18].Selected then webbrowser1.Navigate(GetCurrentDir+'\страницы\Создание не визуальных компонент\nevkomp.htm');;
TForm3.sButton1Click(Sender: TObject);.show;.Hide;;
TForm3.sButton2Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;
TForm3.N1Click(Sender: TObject);.Hide;.show;;TForm3.N2Click(Sender: TObject);.Hide;.show;;
TForm3.N3Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;
TForm3.N4Click(Sender: TObject);.Hide;.Show;;
.Unit4;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls, StdCtrls, Buttons, sBitBtn, acPNG, sPanel;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TsBitBtn;: TImage;: TsPanel;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TsBitBtn;: TsBitBtn;: TsPanel;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TMemo;: TImage;: TImage;: TImage;: TMemo;: TImage;: TImage;: TImage;: TEdit;: TImage;: TImage;: TImage;: TImage;: TImage;: TMenuItem;FormClose(Sender: TObject; var Action: TCloseAction);N4Click(Sender: TObject);N1Click(Sender: TObject);N3Click(Sender: TObject);sbtbtn2Click(Sender: TObject);FormCreate(Sender: TObject);img2Click(Sender: TObject);img3Click(Sender: TObject);img5Click(Sender: TObject);img6Click(Sender: TObject);edt1KeyDown(Sender: TObject; var Key: Word;: TShiftState);img7Click(Sender: TObject);img9DblClick(Sender: TObject);edt2KeyDown(Sender: TObject; var Key: Word;: TShiftState);img11Click(Sender: TObject);FormShow(Sender: TObject);FormHide(Sender: TObject);img10Click(Sender: TObject);img12Click(Sender: TObject);edt3KeyDown(Sender: TObject; var Key: Word;: TShiftState);img13Click(Sender: TObject);img15Click(Sender: TObject);img17DblClick(Sender: TObject);img18Click(Sender: TObject);edt4KeyDown(Sender: TObject; var Key: Word;: TShiftState);img19Click(Sender: TObject);img21Click(Sender: TObject);img23Click(Sender: TObject);img25Click(Sender: TObject);img26Click(Sender: TObject);img16Click(Sender: TObject);sbtbtn3Click(Sender: TObject);sbtbtn4Click(Sender: TObject);pimg2Click(Sender: TObject);pimg4Click(Sender: TObject);pimg5Click(Sender: TObject);pimg7Click(Sender: TObject);pimg9Click(Sender: TObject);pimg10Click(Sender: TObject);pimg12Click(Sender: TObject);edt6KeyPress(Sender: TObject; var Key: Char);pimg13Click(Sender: TObject);pimg15Click(Sender: TObject);pimg16Click(Sender: TObject);pimg18DblClick(Sender: TObject);mmo1KeyPress(Sender: TObject; var Key: Char);pimg19Click(Sender: TObject);pimg21Click(Sender: TObject);mmo2KeyPress(Sender: TObject; var Key: Char);pimg22Click(Sender: TObject);pimg24Click(Sender: TObject);pimg26Click(Sender: TObject);pimg28Click(Sender: TObject);FormKeyPress(Sender: TObject; var Key: Char);pimg30Click(Sender: TObject);N2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm4;,q,p,m:Integer;
Unit2, Unit3, Unit1, Unit8;
{$R *.dfm}TForm4.FormClose(Sender: TObject; var Action: TCloseAction);.close;;
TForm4.N4Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;
TForm4.N1Click(Sender: TObject);.Hide;.show;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;
;
TForm4.N3Click(Sender: TObject);.Hide;.show;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;
;
TForm4.sbtbtn2Click(Sender: TObject);.Hide;.show;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;
;
TForm4.FormCreate(Sender: TObject);edt1.Text='' then q:=q+1;.Left:=90;.Top:=476;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.Top:=-8;.Left:=0;.Width:=1024;.Height:=768;.top:=250;.top:=250;.left:=380;:=0;:=0;
;
TForm4.img2Click(Sender: TObject);:=1;;
TForm4.img3Click(Sender: TObject);k=1 then.Visible:=True;.Visible:=True;.Caption:='Поставьте около компонента Edit кнопку это компонент Button на вкладке Standart';;;
TForm4.img5Click(Sender: TObject);:=2;.Visible:=True;;
TForm4.img6Click(Sender: TObject);
k=2 then.Visible:=True;.Visible:=True;.Caption:='Поменяйте название кнопки в свойстве Caption в окне инспектора обьектов (Object Inspector) на Имя';;;
TForm4.edt1KeyDown(Sender: TObject; var Key: Word;: TShiftState);Key=13 then(edt1.Text='Имя')or(edt1.Text='имя') then.Visible:=True;.Visible:=False;
spnl1.Caption:='Щёлкните по кнопке 2 раза';
img9.Visible:=True;:=q+1;;
TForm4.img7Click(Sender: TObject);(edt1.Text='Имя')or(edt1.Text='имя') then.Visible:=True;.Visible:=False;
spnl1.Caption:='Щёлкните по кнопке 2 раза';
img9.Visible:=True;;;
TForm4.img9DblClick(Sender: TObject);.Visible:=True;.Visible:=False;.visible:=True;.Caption:='Напишите в обработчике событий: Form1.Caption:=Edit1.Text;';
TForm4.edt2KeyDown(Sender: TObject; var Key: Word;: TShiftState);Key=13 then(Edt2.Text='Form1.Caption:=Edit1.Text;')or(Edt2.Text='form1.caption:=edit1.text;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Поставтье на форму ещё 1 кнопку';:=q+1;;;TForm4.img11Click(Sender: TObject);:=3;.Visible:=False;;
TForm4.FormShow(Sender: TObject);.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=true;.Width:=500;.Height:=250;;
TForm4.FormHide(Sender: TObject);.Height:=250;.Width:=500;:=0;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;:=0;.Caption:='';.Visible:=False;.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=false;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;
.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;:=0;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Text:='';.Text:='';.Visible:=False;.Text:='';.Visible:=False;.Height:=627;.Width:=1012;;
TForm4.img10Click(Sender: TObject);(Edt2.Text='Form1.Caption:=Edit1.Text;')or(Edt2.Text='form1.caption:=edit1.text;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Поставтье на форму ещё 1 кнопку';:=q+1;;
TForm4.img12Click(Sender: TObject);k=3 then.Visible:=False;.Visible:=True;.Visible:=true;.Visible:=True;.Caption:='Измените Имя 2 Кнопки на: Выход'
;;
TForm4.edt3KeyDown(Sender: TObject; var Key: Word;: TShiftState);Key=13 then(Edt3.Text='Выход')or(Edt3.Text='выход') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Events';.Visible:=True;:=q+1;;;
TForm4.img13Click(Sender: TObject);(Edt3.Text='Выход')or(Edt3.Text='выход') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Events';.Visible:=True;:=q+1;;
TForm4.img15Click(Sender: TObject);.visible:=True;.Visible:=False;.Caption:='Щёлкните по процедуре Onclick 2 раза';.Visible:=False;;TForm4.img17DblClick(Sender: TObject);.Visible:=False;.visible:=False;.Visible:=True;.Caption:='Напишите в обработчик событий следущие строчки: Close;';
TForm4.img18Click(Sender: TObject);
(Edt4.Text='Close;')or(Edt4.Text='close;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Run';:=q+1;;
TForm4.edt4KeyDown(Sender: TObject; var Key: Word;: TShiftState);
Key=13 then(Edt4.Text='Close;')or(Edt4.Text='close;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Run';
:=q+1;;;
TForm4.img19Click(Sender: TObject);.Visible:=False;.Visible:=True;.visible:=True;.Caption:='Нажмите на Run на вкладке Run';;
TForm4.img21Click(Sender: TObject);.Visible:=False;.visible:=True;
spnl1.Caption:='введите в Edit1 Текст: Моя форма.Нажмите на кнопку имя, и посмотрите на название формы';
img23.Visible:=True;.Visible:=True;;TForm4.img23Click(Sender: TObject);
(edt5.Text='Моя форма') or (edt5.Text='моя форма') then.Visible:=True;.Visible:=False;.Visible:=True;.Visible:=False;
spnl1.Caption:='Теперь нажмите на кнопку Выход';
end;
TForm4.img25Click(Sender: TObject);.Visible:=False;.Visible:=True;
k:=0;.Caption:='Поздравляем вы научились пользоваться визуальными компонентами делфи такими как Кнопка Поле Edit И Форма Нажмите в любое место.';
end;
TForm4.img26Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;.Height:=250;.Width:=500;
;
TForm4.img16Click(Sender: TObject);(Edt4.Text='Close;')or(Edt4.Text='close;') then.Visible:=True;.Visible:=True;.Visible:=False;.Caption:='Перейдите на вкладку Run';:=q+1;;
TForm4.sbtbtn3Click(Sender: TObject);.Visible:=True;.Visible:=True;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=True;
spnl1.Caption:='Поставьте на форму компонент Edit1 из вкладки Standard';
form4.Width:=838;.Height:=752;.Visible:=False;;
TForm4.sbtbtn4Click(Sender: TObject);.Visible:=True;.Visible:=True;.Caption:='Перейдите на вклвдку Dialogs';.Visible:=True;.Height:=627;.Width:=1012;;
TForm4.pimg2Click(Sender: TObject);.visible:=True;.Visible:=True;.Visible:=True;.Caption:='Поставте на форму SaveDialog';;
TForm4.pimg4Click(Sender: TObject);:=2;;
TForm4.pimg5Click(Sender: TObject);q=2 then.Caption:='Перейдите на вкладку standart';.Visible:=True;.Visible:=True;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;;
begin.Caption:='Поставьте на форму кнопку';
pimg6.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Visible:=True;;
TForm4.pimg9Click(Sender: TObject);:=3;;
TForm4.pimg10Click(Sender: TObject);q=3 then.Caption:='Переименуйте кнопку в "Сохранить"';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=true;;
TForm4.pimg12Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;;
TForm4.edt6KeyPress(Sender: TObject; var Key: Char);
(edt6.Text='Сохранить')or(edt6.Text='сохранить') then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=False;.Caption:='Поставьте на вкалдку компонент memo';
;TForm4.pimg13Click(Sender: TObject);
(edt6.Text='Сохранить')or(edt6.Text='сохранить') then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=true;.Visible:=true;.Visible:=False;.Caption:='Поставьте на вкалдку компонент memo';
;
TForm4.pimg15Click(Sender: TObject);:=4;;
TForm4.pimg16Click(Sender: TObject);q=4 then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;
spnl1.Caption:='Щёлкнете по кнопке 2 раза';
end;;
TForm4.pimg18DblClick(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=true;.Caption:='В появившемся окне напишите следующий код "with SaveDialog1, Memo1 do if Execute then begin Lines.SaveToFile(FileName);Memo1.Lines.SaveToFile(FileName);"';.Visible:=True;;
TForm4.mmo1KeyPress(Sender: TObject; var Key: Char);
mmo1.Text='with SaveDialog1, Memo1 do if Execute then begin Lines.SaveToFile(FileName);Memo1.Lines.SaveToFile(FileName);' then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Caption:='Запусите программу щёлкнуш по кнопке Run';;
TForm4.pimg19Click(Sender: TObject);
mmo1.Text='with SaveDialog1, Memo1 do if Execute then begin Lines.SaveToFile(FileName);Memo1.Lines.SaveToFile(FileName);' then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=True;.Caption:='Запусите программу щёлкнуш по кнопке Run';
;
TForm4.pimg21Click(Sender: TObject);.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;
spnl1.Caption:='Введите в Поле Мемо следующий текст "Моё первое сохранение"';
mmo2.Visible:=True;;TForm4.mmo2KeyPress(Sender: TObject; var Key: Char);(mmo2.Text='Моё первое сохранение')or(mmo2.text='моё первое сохранение')then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;
spnl1.Caption:='Нажмите на кнопку сохранить';
pimg24.Visible:=True;
;
TForm4.pimg22Click(Sender: TObject);(mmo2.Text='Моё первое сохранение')or(mmo2.text='моё первое сохранение')then.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;
spnl1.Caption:='Нажмите на кнопку сохранить';
pimg24.Visible:=True;
;
TForm4.pimg24Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;
pimg25.Visible:=True;.Caption:='Введите в поле имя Файла "Сохранение.txt" и нажмите на кнопку сохранить';
edt7.Visible:=True;;
TForm4.pimg26Click(Sender: TObject);(edt7.text='Сохранение.txt')or(edt7.text='сохранение.txt')then.Visible:=False;.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=True;.Visible:=True;
spnl1.Caption:='На рабочем столе появился файл с нашим назвыанием и расширением TXT Щёллкните по нему левой кнопкой мыши';
q:=6;
;
TForm4.pimg28Click(Sender: TObject);.Visible:=false;.Visible:=false;.Visible:=True;.Caption:='Теперь нажмите Enter';;
TForm4.FormKeyPress(Sender: TObject; var Key: Char);(Key in [#13])or(q=6) then.Visible:=False;.Visible:=True;
spnl1.Caption:='То что мы писали в Мемо поле записалось и в TXT файли теперь вы научились сохранять файлы из мемо поля для продолжение щёлкните мышкой в любое место';
end
;
TForm4.pimg30Click(Sender: TObject);.Visible:=True;.Visible:=True;.Visible:=True;
.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Caption:='';.Visible:=False;:=0;:=0;:=0;.Height:=250;.Width:=500;;
TForm4.N2Click(Sender: TObject);.Hide;.Show;;
.Unit5;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, MPlayer, StdCtrls, Buttons, sBitBtn, ExtCtrls, sPanel,, ComCtrls, acProgressBar;
= class(TForm): TMediaPlayer;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsBitBtn;: TsPanel;: TMenuItem;FormClose(Sender: TObject; var Action: TCloseAction);N3Click(Sender: TObject);N2Click(Sender: TObject);N1Click(Sender: TObject);sbtbtn1Click(Sender: TObject);sbtbtn2Click(Sender: TObject);sbtbtn3Click(Sender: TObject);sbtbtn4Click(Sender: TObject);sbtbtn5Click(Sender: TObject);sbtbtn6Click(Sender: TObject);sbtbtn7Click(Sender: TObject);sbtbtn8Click(Sender: TObject);sbtbtn9Click(Sender: TObject);N4Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm5;
, Unit3, Unit2, Unit1, Unit8;
{$R *.dfm}
TForm5.FormClose(Sender: TObject; var Action: TCloseAction);.Close;;
TForm5.N3Click(Sender: TObject);messagedlg('Вы действительно хотите выйти?',mtConfirmation,mbOKCancel,0)=1 then;;
TForm5.N2Click(Sender: TObject);.Hide;.Show;.Close;;TForm5.N1Click(Sender: TObject);.Hide;.Show;.Close;;
TForm5.sbtbtn1Click(Sender: TObject);
.FileName:=GetCurrentDir+'\Видео\Основные компоненты Delphi (визуальные).mpg';.Enabled:=True;.Display:=spnl1;.AutoOpen:=True;.Open;.DisplayRect:=spnl1.ClientRect;;
TForm5.sbtbtn2Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Урок Delphi 2010. Компонент ProgressBar..mpg';.Open;.DisplayRect:=spnl1.ClientRect;;TForm5.sbtbtn3Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Урок Delphi. Компонент MediaPlayer. Воиспр. звуков. файл.mpg';.Open;.DisplayRect:=spnl1.ClientRect;;
TForm5.sbtbtn4Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Урок Delphi. Новая версия. Работаем с компонентом Timage..mpg';
mp1.Open;.DisplayRect:=spnl1.ClientRect;;
TForm5.sbtbtn5Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Установка компонента AlphaSkins, Delphi - yaDelphi.ru.mpg';.Open;.DisplayRect:=spnl1.ClientRect;;
TForm5.sbtbtn6Click(Sender: TObject);.Enabled:=True;.AutoOpen:=True;.Display:=spnl1;.FileName:=GetCurrentDir+'\Видео\Форма (Form) Delphi_2.mpg';.Open;.DisplayRect:=spnl1.ClientRect;;
TForm5.sbtbtn7Click(Sender: TObject);.Play;
;
TForm5.sbtbtn8Click(Sender: TObject);.Pause;;
TForm5.sbtbtn9Click(Sender: TObject);.Stop;.Position:=0;;
TForm5.N4Click(Sender: TObject);.Hide;.Show;.Close;;
.Unit6;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, sButton, sLabel, jpeg, ExtCtrls;
= class(TForm): TImage;: TsLabel;: TsButton;btn1Click(Sender: TObject);
{ Public declarations };
: TSpravka;;
{$R *.dfm}
TSpravka.btn1Click(Sender: TObject);.hide;;
.Unit7;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, sLabel, acPNG, ExtCtrls, Buttons, sBitBtn, jpeg;
= class(TForm): TImage;: TsLabel;: TsLabel;: TsLabel;: TsLabel;: TsLabel;: TsLabel;: TsBitBtn;FormCreate(Sender: TObject);sbtbtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TProg;
;
{$R *.dfm}
TProg.FormCreate(Sender: TObject);.BringToFront;;
TProg.sbtbtn1Click(Sender: TObject);.Hide;;
.Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, sLabel, sSkinProvider, sSkinManager, sButton,, sCheckBox, ExtCtrls, sPanel, Buttons, sSpeedButton, sBitBtn,;
= class(TForm): TsSkinManager;: TsSkinProvider;: TsLabel;: TsButton;: TsGroupBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsGroupBox;: TsButton;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsGroupBox;: TsButton;: TsPanel;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsGroupBox;: TsButton;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsGroupBox;: TsButton;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsCheckBox;: TsLabel;: TsButton;: TsBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;chk1Click(Sender: TObject);chk2Click(Sender: TObject);chk3Click(Sender: TObject);chk4Click(Sender: TObject);btn1Click(Sender: TObject);FormCreate(Sender: TObject);chk5Click(Sender: TObject);chk6Click(Sender: TObject);chk7Click(Sender: TObject);chk8Click(Sender: TObject);btn2Click(Sender: TObject);btn3Click(Sender: TObject);chk9Click(Sender: TObject);chk10Click(Sender: TObject);chk11Click(Sender: TObject);chk12Click(Sender: TObject);btn4Click(Sender: TObject);chk13Click(Sender: TObject);chk14Click(Sender: TObject);chk15Click(Sender: TObject);chk16Click(Sender: TObject);btn5Click(Sender: TObject);chk17Click(Sender: TObject);chk18Click(Sender: TObject);chk19Click(Sender: TObject);chk20Click(Sender: TObject);FormHide(Sender: TObject);btn6Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);sbtbtn1Click(Sender: TObject);N3Click(Sender: TObject);N1Click(Sender: TObject);N5Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: Ttest;,c:Byte; i:Integer;
, Unit2, Unit1;
{$R *.dfm}
Ttest.chk1Click(Sender: TObject);chk1.Checked then:=1;.Checked:=False;.Checked:=False;.Checked:=False;;;
Ttest.chk2Click(Sender: TObject);chk2.Checked then:=0;.Checked:=False;.Checked:=False;.Checked:=False;;;Ttest.chk3Click(Sender: TObject);chk3.Checked then:=0;.Checked:=False;.Checked:=False;.Checked:=False;;;
Ttest.chk4Click(Sender: TObject);chk4.Checked then:=0;.Checked:=False;.Checked:=False;.Checked:=False;;;
Ttest.btn1Click(Sender: TObject);(chk3.Checked=False)and(chk1.Checked=False)and(chk2.Checked=False)and(chk4.Checked=False) then.Visible:=True.Caption:='За что отвечает поле Host?';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=false;h=1 then:=1;;;
Ttest.FormCreate(Sender: TObject);.Left:=16;.Top:=48;.left:=32;.Top:=208;.Left:=16;.Top:=48;.left:=32;.Top:=208;.Left:=16;.Top:=48;.left:=32;.Top:=208;.Width:=305;.Height:=145;.Width:=305;.Height:=145;.Width:=305;.Height:=145;.Width:=305;.Height:=145;.Left:=16;.Top:=48;.left:=32;.Top:=208;;
Ttest.chk5Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk6Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk7Click(Sender: TObject);:=2;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk8Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.btn2Click(Sender: TObject);(chk5.Checked=False)and(chk6.Checked=False)and(chk7.Checked=False)and(chk8.Checked=False) then.Visible:=True.Caption:='Что указываеться в свойстве Bindings?';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=false;h=2 then:=c+1;;;
Ttest.btn3Click(Sender: TObject);(chk9.Checked=False)and(chk10.Checked=False)and(chk11.Checked=False)and(chk12.Checked=False) then.Visible:=True.Caption:='Назначение библиотеки xmlerrdisp.js?';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=false;h=3 then:=c+1;;;
Ttest.chk9Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;Ttest.chk10Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk11Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk12Click(Sender: TObject);:=3;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.btn4Click(Sender: TObject);(chk13.Checked=False)and(chk14.Checked=False)and(chk15.Checked=False)and(chk16.Checked=False) then.Visible:=True.Caption:='Назначение Элемента DataGrid?';.Visible:=False;.Visible:=False;.Visible:=true;.Visible:=True;.Visible:=false;h=4 then:=c+1;;;
Ttest.chk13Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk14Click(Sender: TObject);:=4;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk15Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk16Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.btn5Click(Sender: TObject);(chk13.Checked=False)and(chk14.Checked=False)and(chk15.Checked=False)and(chk16.Checked=False) then.Visible:=True.Visible:=False;.Visible:=False;.Visible:=false;.Visible:=True;.Visible:=True;h=5 then:=c+1;.Visible:=true;.Caption:='Ваша оценка '+inttostr(c);;;Ttest.chk17Click(Sender: TObject);:=5;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk18Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk19Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.chk20Click(Sender: TObject);:=0;.Checked:=False;.Checked:=False;.Checked:=False;;
Ttest.FormHide(Sender: TObject);
begin.Caption:='Что из перечисленного относиться к визуальным компонентам?';
grp1.Visible:=True;.Visible:=true;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Caption:='';.Visible:=False;:=0;:=0;;
Ttest.btn6Click(Sender: TObject);
begin.Caption:='В следствии чего создаёться обьект типа TwebRequest';
grp1.Visible:=True;.Visible:=true;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Checked:=False;.Caption:='';.Visible:=False;:=0;:=0;;
Ttest.FormClose(Sender: TObject; var Action: TCloseAction);.Close;;Ttest.sbtbtn1Click(Sender: TObject);.img1.Picture.LoadFromFile(GetCurrentDir+'\Image\zast.jpg');.Hide;.Show;;
Ttest.N3Click(Sender: TObject);.Hide;.show;;
Ttest.N1Click(Sender: TObject);.img1.Picture.LoadFromFile(GetCurrentDir+'\Image\zast.jpg');.Hide;.Show;
;
Ttest.N5Click(Sender: TObject);MessageBox(Glav.Handle,
PChar('Вы действительно хотите выйти'),
PChar('Выход'), MB_YESNO or MB_ICONQUESTION)=mrYes.Close;;.