Drag'n'drop

  • 14 июля 2011 г.
  • 1220 Слова
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
Белгородский Государственный Технологический Университет
им. В.Г. Шухова

Кафедра информационных технологий

Лабораторная Работа №5
По визуальному программированию

Списки выбора и технология «Drag-And-Drop»

Вариант №11

Выполнил:
студент группы ИТ- 22Фейзуллаев С.У..

Белгород, 2009

Списки выбора и технология «Drag-And-Drop»

Цель работы: Получить практические навыки использования списков строк TStrings и компонента TListBox. Освоить технологию «Drag-And-Drop». Получить практические навыки обработки исключительных ситуаций.

Задание к лабораторной работе

Разработать программу для работы со списками строк, структура объектовпользовательского класса, размещаемых в списке, определяется из табл. 3 в соответствии с вариантом. Список содержит строки с идентификатором объекта и связанный со строкой объект. Для визуализации списка используется компонент TListBox. Предусмотреть создание, просмотр и редактирование объектов, а также сохранение объектов в файле и их загрузку из файлов.
Используя технологию «drag-and-drop», организоватьперемещение объектов из одного списка в другой, а также их удаление в Корзину.
Обрабатывать исключительную ситуацию «Ошибка открытия файла».
Реализовать в приложении обработку исключительной ситуации в соответствии с вариантом задания (см. табл. 4).

Вариант 11.

Поликлиника
фамилия пациента
диагноз
срок болезни

Работа программы:

[pic]

[pic]

[pic]

unit Unit1;interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus, StdCtrls, ImgList, ExtCtrls, XPMan,Unit2, unit3;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
XPManifest1: TXPManifest;
TreeView2: TTreeView;
Image1: TImage;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;ImageList1: TImageList;
Button1: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;procedure Button1Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure TreeView1GetSelectedIndex(Sender: TObject; Node: TTreeNode);
procedure TreeView2GetSelectedIndex(Sender: TObject; Node: TTreeNode);
procedure Button2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedureN9Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N10Click(Sender: TObject);

procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TreeView2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; varAccept: Boolean);
procedure TreeView2DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure TreeView2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure TreeView1DragDrop(Sender, Source: TObject;X, Y: Integer);
procedure Image1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Image1DragDrop(Sender, Source: TObject; X, Y: Integer);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MNode:TTreeNode;...
tracking img