Міністерство освіти науки молоді та спорту Національний університет «Львівська політехніка» Лабораторна робота №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.