их кнопках Save і Load raquo ;. Користувач також може очистити поле за допомогою кнопки Clear від усіх створених ним компонент або вручну видаляти кожен з них повторно натиснувши на відповідний елемент списку; отримати інформацію про самому додатку за допомогою кнопки About raquo ;; вийти з програми натиснувши на кнопку Quit .
Рис. 4. Про програму.
Висновок
Метою курсової роботи було вивчення мови програмування Delphi і поліпшення практичних завдань.
В ході курсової роботи було розроблено додаток, що дозволяє отримувати довідкову інформацію про візуальних компонентах Delphi. У ньому був реалізований метод Drag and Drop, збереження і завантаження даних, відображення координат курсора, зміна деяких властивостей створюваних об'єктів, використані об'єкти класів TForm, TLabel, TEdit, TButton, TBitBtn, TShape, TCheckBox, TListBox, TStatusBar, TColorBox. Для відображення довідкової інформації використовувалися модальні форми, інформація в які завантажується з відповідного файлу.
Список використаної літератури
1. Архангельський А.Я. Програмування в Delphi: Підручник за класичними версіями Delphi.- М .: Біном, 2011.
2. Дмитро Осипов. Delphi. Професійне програмирование.- 2008
. Фаронов В.В. Delphi. Програмування на мові високого рівня: Підручник для вузів - Спб .: Лідер, 2010.
4.Справочнік Основи Delphi URL - lt; # center gt; Програми
Додаток А (обов'язковий)
Лістинг программиmain ;, SysUtils, Graphics, Controls, Forms, Dialogs, Grids ,, StdCtrls, ComCtrls, ExtCtrls, Classes;=class (TForm): TListBox ;: TEdit ;: TEdit ;: TEdit;:TEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TButton ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TShape ;: TShape ;: TCheckBox ;: TLabel ;: TStatusBar ;: TColorBox ;: TLabel; ListBox1Click (Sender: TObject); SetProperties (Sender: TObject); ComponentMouseDown (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); ComponentMouseMove (Sender: TObject; Shift: TShiftState ; X ,: Integer); ComponentMouseUp (Sender: TObject; Button: TMouseButton ;: TShiftState; X, Y: Integer); Button1Click (Sender: TObject); BitBtn4Click (Sender: TObject); BitBtn5Click (Sender: TObject); BitBtn1Click ( Sender: TObject); BitBtn3Click (Sender: TObject); BitBtn2Click (Sender: TObject); clear_all;
{Private declarations}
{Public declarations} ;: TForm1;
{$ R *. dfm}: TButton;// 1: TEdit;// 2: TCheckBox;// 3: TRadioButton;// 4: TPanel;// 5: TProgressBar;// 6: TBitBtn;// 7: TLabel;// 8: TLabeledEdit;// 9: TGroupBox;// 10: TMemo;// 11: TSpeedButton;// 12: TShape;// 13: TStaticText;// 14: TStringGrid;// 15: boolean ;, YOffset: integer ;: TRect; _Component: TControl ;: integer; TForm1. SetProperties (Sender: TObject) ;. Text:=IntToStr ((Sender as TControl). Left) ;. Text:=IntToStr ((Sender as TControl). Top) ;. Text:=IntToStr ((Sender as TControl). Height) ;. Text:=IntToStr ((Sender as TControl). Width); last of
: ColorBox1. Selected:=button. Font. Color;
: ColorBox1. Selected:=textBox. Font. Color;
//3:
//4:
: ColorBox1. Selected:=panel. Font. Color;
//6:
: ColorBox1. Selected:=bitBtn. Font. Color;
: ColorBox1. Selected:=labelBox. Font. Color;
: ColorBox1. Selected:=labeledEdit. Font. Color;
: ColorBox1. Selected:=groupBox. Font. Color;
: ColorBox1. Selected:=memoBox. Font. Color;
//12:
//13:
//14:
//15: ;; TForm1. ListBox1Click (Sender: TObject); x, y: integer; h: textfile; shelp: AnsiString ;:=200 ;:=200; listbox1. Selected [0] then begin//Buttoncheckbox1. Checked then begin (h, h1. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (button)) then begin:=TButton. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=True ;:=1 ;. Height:=30 ;. Width:=80 ;. Name:= Button raquo ;;. OnMouseDown:=ComponentMouseDown ;. OnMouseMove:=ComponentMouseMove ;. OnMouseUp:=ComponentMouseUp; (button); begin button. Destroy; button:=nil; exit; end; end; listbox1. Selected [1] then begin//Editcheckbox1. Checked then begin (h, h2. Txt ); (h); (h, shelp); (shelp); (h) ;; not (Assigned (textBox)) then begin:=TEdit. Create (Form1) ;. Parent:=Form1 ;. Left:=x ;. Top:=y ;. Visible:=Tr...
