Создать приложение, позволяющее: создавать 10 секций с компонентом HeaderControll.
Создать приложение, позволяющее: создавать 5 панелей с компонентом Status Bar.
Создать приложение, позволяющее: создать 8 кнопок с компонентом Toolbar.
Создать приложение, позволяющее: 3 панели с компонентом Coolbar.
Список использованной литературы
Абрамов А. Г., Трифонов Н. П. Введение в язык Паскаль, - М.-Наука, 1988.
Архангельский А. Я., Delphi 2006,-М.-Бином 2006
Архангельский А. Я., 100 компонентов общего назначения библиотеки Delphi 5,-М.-Бином,2004
Баженова И. Ю. Delphi 6, - М.: Кудиц – образ, 2002
Глушаков С. В. Программирование на Delphi 5, - Харьков: ФОЛИО, 2002
Гофман В. Э., Хомоненко А. Д. Delphi 6, – СПб.: БХВ - Петербург , 2001
Климова Л.М., Delphi 7,-М.-кудиц-образ,2005
Культин Н. С. Delphi 6. Программирование на Object Pascal – СПб.: БХВ - Петербург , 2001 .
Культин Н. С. Delphi 7. Программирование на Object Pascal – СПб.: БХВ - Петербург , 2001.
Марко Кэнту, Delphi 7 для профессионалов,-СПб.-Питер, 2005
Попов В.А., Самоучитель Delphi,-СПб.-Питер, 2002
Ремнев А.А., Федотова С.В., Курс Delphi для начинающих,-М.-Бином,2004
Стивенс Род, Delphi. Готовые алгоритмы,-СПб.-Питер, 2004
Сухарев М.В., Основы Delphi. Профессиональный подход,-М.-Бином, 2003
Фаронов В. В. Система программирования Delphi. – СПб.: БХВ - Петербург , 2003 .
Фаронов В. В. Delphi 5. Учебный курс, - М.: Нолидж, 2001 .
Фаронов В. В. Delphi программирвание на языке высокого уровня,- Питер,2010
Фленов М.А., Библия Delphi,-М.-Бином, 2007
Хомоненко А. Д. и др. Delphi 7 / Под общ. ред. А. Д. Хомоненко. – СПб.: БХВ – Петербург, 2003.
Шпак Ю. А., Delphi 7 на примерах,- СПб.: БХВ - Петербург , 2006
Юркин А. Г. Задачник по программированию, - СПб.: Питер, 2002 .
www. Delphi-Forum.ru
www.informatik.kz
В электронном учебнике были рассмотрены одни из основных функций используемые в Delphi при работе с панелью Win32. Главной целью являлось знакомство с компонентами в комплексе. Это позволило показать легкость и доступность использования компонентов и дало возможность для дальнейшего, более глубокого изучения компонентов. Это, также ещё раз подтвердило, что Delphi является мощным и универсальным инструментом для разработки приложений, и удобной средой за счет большого и расширяемого набора компонент.
Результат работы электронного учебника может говорить о простоте и удобности использования компонентов. В то же самое время, компоненты поддерживают работу протоколов и стандартов передачи данных на полнофункциональном уровне. Благодаря использованию технологий ООП (Объектно-Ориентированное Программирование) компоненты Win32 имеют простую иерархическую структуру и сходную между собой модель, благодаря которой, изучение компонентов делается ещё более простым. Не смотря на то, что проект является открытым (Open Source), это лишний раз доказывает, что можно и нужно использовать программы или библиотеки из таких проектов. Также можно убедиться, что действительно технологии передачи данных по сетям очень доступны и могут быть использованы на самом высоком уровне в собственных разработках.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.Show;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Close;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('ob.txt.');
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, ToolWin, ImgList;
type
TForm3 = class(TForm)
PageControl1: TPageControl;
Button1: TButton;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
TabSheet10: TTabSheet;
TabSheet11: TTabSheet;
TabSheet12: TTabSheet;
TabSheet13: TTabSheet;
TabSheet14: TTabSheet;
TabSheet15: TTabSheet;
TabSheet16: TTabSheet;
TabSheet17: TTabSheet;
Label1: TLabel;
Memo1: TMemo;
Panel1: TPanel;
Label2: TLabel;
TabControl1: TTabControl;
PageControl2: TPageControl;
TabSheet20: TTabSheet;
TabSheet21: TTabSheet;
TabSheet22: TTabSheet;
RichEdit1: TRichEdit;
TrackBar1: TTrackBar;
ProgressBar1: TProgressBar;
UpDown1: TUpDown;
HotKey1: THotKey;
Animate1: TAnimate;
DateTimePicker1: TDateTimePicker;
ImageList1: TImageList;
MonthCalendar1: TMonthCalendar;
TreeView1: TTreeView;
ListView1: TListView;
HeaderControl1: THeaderControl;
StatusBar1: TStatusBar;
ToolBar1: TToolBar;
CoolBar1: TCoolBar;
Label3: TLabel;
Edit1: TEdit;
Button2: TButton;
CheckBox1: TCheckBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
Button3: TButton;
Button4: TButton;
Label4: TLabel;
Label5: TLabel;
Button5: TButton;
Timer1: TTimer;
Label6: TLabel;
Button6: TButton;
ComboBox2: TComboBox;
Label7: TLabel;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
Button7: TButton;
Edit2: TEdit;
Label8: TLabel;
procedure PageControl1Change(Sender: TObject);
procedure TabControl1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure TabSheet4Show(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
procedure Button6Click(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.PageControl1Change(Sender: TObject);
var
s: string;
begin
s := PageControl1.ActivePage.Caption+'.txt';
if FileExists(s) then
Memo1.Lines.LoadFromFile(s)
else
Memo1.Text := 'Файл не найден';
Label8.Caption := PageControl1.ActivePage.Caption;
Panel1.Parent := PageControl1.ActivePage;
end;
procedure TForm3.TabControl1Change(Sender: TObject);
begin
case TabControl1.TabIndex of
0: Label3.Caption := 'Текст вкладки 1';
1: Label3.Caption := 'Текст вкладки 2';
2: Label3.Caption := 'Текст вкладки 3';
3: Label3.Caption := 'Текст вкладки 4';
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm3.TabSheet4Show(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('RichText.rtf');
end;
procedure TForm3.TrackBar1Change(Sender: TObject);
begin
Label4.Caption := IntToStr(TrackBar1.Position);
end;
procedure TForm3.Button5Click(Sender: TObject);
begin
if Timer1.Enabled = true then exit;
ProgressBar1.Position := 0;
Timer1.Enabled := true;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if ProgressBar1.Position = 100 then Timer1.Enabled := false;
ProgressBar1.Position := ProgressBar1.Position + 2;
Label5.Caption := IntToStr(ProgressBar1.Position) + '%';
end;
procedure TForm3.UpDown1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
Label6.Caption := IntToStr(UpDown1.Position);
end;
procedure TForm3.Button6Click(Sender: TObject);
begin
Animate1.Active := not Animate1.Active;
end;
procedure TForm3.ComboBox2Change(Sender: TObject);
begin
case ComboBox2.ItemIndex of
0: ListView1.ViewStyle := vsIcon;
1: ListView1.ViewStyle := vsList;
2: ListView1.ViewStyle := vsReport;
3: ListView1.ViewStyle := vsSmallIcon;
end;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm4 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('задачи.txt');
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
form4.Close;
end;
end.