Geum.ru

Реализация средствами языка программирования Delphi программы "Файловый менеджер"

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

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

?ная кнопка. Командная кнопка Delphi Button используется для реализации в программе команд с помощью обработчика события OnClick этого компонента.

Один и тот же обработчик может обрабатывать события нескольких компонентов TButton (да и не только TButton, но и даже компонентов других типов). Для определения того, событие какого именно компонента нужно обрабатывать, используется встроенная переменная Sender типа TObject, обозначающая объект, вызвавший данное событие.

 

3.3 Компонент TImage

 

TImage - отображает графическое изображение на форме. Воспринимает форматы BMP, ICO, WMF. Если картинку подключить во время дизайна программы, то она прикомпилируется к EXE файлу.

Этот компонент доступен из модуля EXTCTRLS, и находится на странице Палитры компонентов Additional.

Этот компонент служит надстройкой над классом TPicture и замыкает всю иерархию графических объектов VCL. Он предназначен для показа на форме изображения: битовой карты (TBitmap), метафайла (TMetafile), значка (TIcon).

 

3.4 Компонент ListBox

 

- ListBox отображает список в раскрытом виде и автоматически добавляет в список полосы прокрутки, если все строки не помещаются в окне компонента.

 

 

3.5Компонент TPanel

 

TPanel - Панели Panel используются наиболее широко. С их помощью компонуются различные элементы интерфейса (кнопки, окна редактирования, списки), функционально связанные друг с другом. Такая функциональная связь должна поддерживаться и зрительной связью - объединением соответствующих элементов в рамках одной панели. Панели Panel могут также использоваться для организации инструментальных панелей, полос состояния и т.п., хотя для этих целей имеются и специализированные компоненты, которые будут рассмотрены позднее.

 

 

3.6 Компонент ListView

 

- В заключение коротко рассмотрим компонент ListView. Он позволяет отображать в стиле Windows 95/98 данные в виде списков, таблиц, крупных и мелких пиктограмм. С подобным отображением все вы сталкиваетесь, раскрывая папки Windows.

 

 

3.7 Компонент ComboBox

 

- Таким образом, с помощью Delphi ComboBox место на Форме экономится для расмещения других элементов интерфейса программы. А при необходимости раскрытие списка строк можно вообще запретить.

Многие свойства и возможности компонента Delphi ComboBox по работе со строками (объектами Items)

4. Описание применения

 

Созданный мной проект предлагает пользователю, программу "Файловый менеджер" легкий доступ к любым файлам которых не видно даже на дисках. Данный проект могут использовать как учащиеся так и любой заинтересовавшейся человек. Программа имеет очень простой интерфейс и с ним легко разобраться.

 

Заключение

 

В результате выполнения данной курсовой работы мной был разработан Файловый менеджер. Было проведено исследование компонентов программной среды Borland Delphi 7.0, которые использовались при создании программы, использовалось множество процедур и функций.

При создании программы использовались следующие компоненты: TMainMenu, TButton,TImage, ComboBox, ListBox, TPanel,.

Список использованной литературы

 

  1. Архангельский А.Я. Программирование в DELPHI. - М.: Бином, 2008.
  2. Бобровский С.В. DELPHI 7. - "Питер", 2008.
  3. Гудман С., Хидетниеми С. Введение в разработку и анализ алгоритмов. - М.: Мир, 1981.
  4. Дейкстра Э. Дисциплина программирования. - М.: Мир, 1978.
  5. Зиглер К. Методы проектирования программных систем. - М.: Мир, 1985.
  6. Кнут Д. Искусство программирования для ЭВМ. В 3 т., любое издание.
  7. Оскерко В.С. Технологии баз данных. - Мн.: БГЭУ, 2007

">

">

://pda.privet.ru/

://www.nestor.minsk.by/

">

">

Приложения

 

Приложение А

 

Код программыMain;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, StdCtrls, ComCtrls, frFilePanelU, ImgList, ExtCtrls, Menus;= class (TForm)

frFilePanelLeft: TfrFilePanel;: TPanel;: TFileListBox;: TImageList;: TSplitter;: TfrFilePanel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TComboBox;: TLabel;: TLabel;: TMenuItem;: TButton;: TButton;: TButton;: TButton;: TButton;FormClose (Sender: TObject; var Action: TCloseAction);FormActivate (Sender: TObject);FormCreate (Sender: TObject);miExitClick (Sender: TObject);cmbxCommandKeyDown (Sender: TObject; var Key: Word;: TShiftState);cmbxCommandEnter (Sender: TObject);miAboutClick (Sender: TObject);btEditClick (Sender: TObject);btCopyClick (Sender: TObject);btMoveClick (Sender: TObject);btFolderClick (Sender: TObject);btDeleteClick (Sender: TObject);frFilePanelRightbbRefreshClick (Sender: TObject);frFilePanelRightbtDirRootClick (Sender: TObject);

{ Private declarations }

{ Public declarations };: TfmDarkickCommander;FilesExU, About;: Boolean;

{$R *. DFM}TfmDarkickCommander. FormClose (Sender: TObject; var Action: TCloseAction);. Done;. Done;;TfmDarkickCommander. FormActivate (Sender: TObject);FirstRun Then. Init (FileListBox1, ImageList1, frFilePanelLeft. Deactivate, lbPath, lbItem);. Init (FileListBox1, ImageList1, frFilePanelRight. Deactivate, lbPath, lbItem);: =False;;;TfmDarkickCommander. FormCreate (Sender: TObject);: =True;;TfmDarkickCommander. miExitClick (Sender: TObject);;;TfmDarkickCommander. cmbxCommandKeyDown (Sender: TObject;Key: Word; Shift: TShiftState);: Integer;, Params: String;Key<>VK_Return Then Exit;. Text: =Trim (cmbxCommand. Text);ssCtrl In Shift Then. Text: = +cmbxCommand. Text+lbItem. Caption+ ;;;cmbxCommand. Items. IndexOf (cmbxCommand. Text) <0 Then. Items. Add (cmbxCommand. Text);: =Pos ( , cmbxCommand. Text);P<=0 Then(lbPath. Caption, cmbxCommand. Text, );;;: =Copy (cmbxCommand. Text, 1, P-1);: =Copy (cmbxCommand. Text, P+1, Length (cmbxCommand. Text) - P);(lbPath. Caption, Command, Params);;TfmDarkickCommander. cmbxCommandEnter (Sender: TObject);. SelectAll;;TfmDarkickCommander. miAboutClick (Sender: TObject);. ShowModal;;TfmDarkickCommander. btEditClick (Sender: TObject);frFilePanelLeft. NowActive Then. EditFile. EditFile;;TfmDarkickCommander. btCopyClick (Sender: TObject);frFilePanelLeft. NowActive Then. TryCopyFile. TryCopyFile;;TfmDarkickCommander. btMoveClick (Sender: TObject);frFilePanelLeft. NowActive Then. TryMoveFile. TryMoveFile;;TfmDarkickCommander. btFolderClick (Sender: TObject);frF