Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Створення проекту з використанням технології Drag&Drop
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
КН
Кафедра:
Не вказано
Інформація про роботу
Рік:
2011
Тип роботи:
Лабораторна робота
Предмет:
Об’єктно-орієнтоване програмування
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти науки молоді та спорту
Національний університет «Львівська політехніка»
Лабораторна робота №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.
20.02.2013 19:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора