Створення проекту з використанням технології Drag&Drop. Лабораторна робота з Об’єктно-орієнтоване програмування. Робота № 520447

Створення проекту з використанням технології Drag&Drop

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

Не вказано

Факультет:

КН

Кафедра:

Не вказано

Інформація про роботу

Рік:

2013

Тип роботи:

Лабораторна робота

Предмет:

Об’єктно-орієнтоване програмування

Завантажити

Частина тексту файла (без зображень, графіків і формул):

Міністерство освіти науки молоді та спорту Національний університет «Львівська політехніка» Лабораторна робота №5 З Основ об’єктно-орієнтованого програмування На тему Створення проекту з використанням технології Drag&Drop та контекстних підказок Львів 2011 Мета: навчитися використовувати можливості технології Drag&Drop у прикладних програмах, додавати до програм контекстні підказки. Завдання: Написати програму, яка показує можливості технології Drag&Drop для заданих об'єктів - джерела та приймача – Edit та StringGrid. Необхідну інформацію для користувача програми оформити у вигляді контекстної підказки. Код програми: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) edt1: TEdit; lbl1: TLabel; strngrd1: TStringGrid; lbl2: TLabel; procedure strngrd1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure strngrd1DragDrop(Sender, Source: TObject; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.strngrd1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept:=Source=edt1; end; procedure TForm1.strngrd1DragDrop(Sender, Source: TObject; X, Y: Integer); var ARow, ACol:Integer; begin strngrd1.MouseToCell(x,y,ACol,ARow); strngrd1.Cells[ACol,ARow]:=edt1.Text; end; end. Результати роботи: Висновок: На даній лабораторній роботі я навчився використовувати технологію Drag`n`Drop.

Лабораторна робота Об’єктно-орієнтоване програмування

77pazan77

20.02.2013 19:42

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

поділитись