МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ Національний університет «Львівська політехніка» Кафедра АСУ Звіт до лабораторної роботи №3 з курсу “Об'єктно орієнтоване програмування” Варіант 8 Бунь І.П. Тема : Створення проекту з використанням технології Drag&Drop та контекстних підказок Мета роботи: навчитися використовувати можливості технології Drag&Drop у прикладних програмах, додавати до програм контекстні підказки. Порядок виконання роботи: Порядок роботи: Користуючись рекомендованою літературою до лабораторної роботи створити проект відповідно до індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи порядок роботи короткі теоретичні відомості алгоритм розв’язку задачі тексти відповідних модулів проекту аналіз отриманих результатів та висновки Завдання. Написати програму, яка показує можливості технології Drag&Drop для заданих об'єктів - джерела та приймача. Необхідну інформацію для користувача програми оформити у вигляді контекстної підказки. 8. StringGrid StringGrid. Тексти програм: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus, StdCtrls, ExtCtrls; type TMainForm = class(TForm) Memo: TMemo; MainMenu: TMainMenu; N1: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N2: TMenuItem; StatusBar: TStatusBar; OpenDialog: TOpenDialog; SaveDialog: TSaveDialog; Timer1: TTimer; procedure TimerTimer(Sender: TObject); procedure N3Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure N5Click(Sender: TObject); procedure MemoKeyPress(Sender: TObject; var Key: Char); procedure N4Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private TimerNum:integer; DocChange:boolean; { Private declarations } public { Public declarations } end; var MainForm: TMainForm; implementation {$R *.dfm} procedure TMainForm.TimerTimer(Sender: TObject); begin inc(TimerNum); StatusBar.Panels.Items[1].Text:='Секундомір: '+inttostr(TimerNum); end; procedure TMainForm.N3Click(Sender: TObject); var Choise:byte; begin Choise:=0; if DocChange then begin Choise:=Application.MessageBox('Зберегти зміни?','Збереження...',MB_YESNOCANCEL); case Choise of IDYES : begin if Length(OpenDialog.FileName)>0 then Memo.Lines.SaveToFile(OpenDialog.FileName) else begin if SaveDialog.Execute() then begin Memo.Lines.SaveToFile(SaveDialog.FileName); end; end; end; end; end; if not(Choise=IDCANCEL) then if OpenDialog.Execute() then begin StatusBar.Panels.Items[0].Text:='Файл: '+OpenDialog.FileName; Memo.Lines.LoadFromFile(OpenDialog.FileName); end; end; procedure TMainForm.FormCreate(Sender: TObject); begin DocChange:=false; end; procedure TMainForm.N5Click(Sender: TObject); var Choise:byte; begin if not DocChange then Close else begin Choise:=Application.MessageBox('Зберегти зміни?','Збереження...',MB_YESNOCANCEL); case Choise of IDYES : begin if Length(OpenDialog.FileName)>0 then begin Memo.Lines.SaveToFile(OpenDialog.FileName); Close; end else begin if SaveDialog.Execute() then begin Memo.Lines.SaveToFile(SaveDialog.FileName); Close; end; end; end; IDNO : Close; end; end; end; procedure TMainForm.MemoKeyPress(Sender: TObject; var Key: Char); begin DocChange:=true; end; procedure TMainForm.N4Click(Sender: TObject); begin if Length(OpenDialog.FileName)>0 then Memo.Lines.SaveToFile(OpenDialog.FileName) else if SaveDialog.Execute() then begin if Pos('.txt',SaveDialog.FileName)=0 then SaveDialog.FileName:=SaveDialog.FileName+'.txt'; Memo.Lines.SaveToFile(SaveDialog.FileName); DocChange:=false; OpenDialog.FileName:=SaveDialog.FileName; StatusBar.Panels.Items[0].Text:='Файл: '+SaveDialog.FileName; end; end; procedure TMainForm.N2Click(Sender: TObject); var Choise:byte; begin if not DocChange then begin Memo.Lines.Clear; OpenDialog.FileName:=''; StatusBar.Panels[0].Text:='Файл: '; end else begin Choise:=Application.MessageBox('Зберегти зміни?','Збереження...',MB_YESNOCANCEL); case Choise of IDYES : begin if Length(OpenDialog.FileName)>0 then begin Memo.Lines.SaveToFile(OpenDialog.FileName); Memo.Lines.Clear; OpenDialog.FileName:=''; end else begin if SaveDialog.Execute() then begin Memo.Lines.SaveToFile(SaveDialog.FileName); Memo.Lines.Clear; OpenDialog.FileName:=''; end; end; end; IDNO : begin Memo.Lines.Clear; OpenDialog.FileName:=''; end; end; StatusBar.Panels.Items[0].Text:='Файл: '+OpenDialog.FileName; end; end; procedure TMainForm.N6Click(Sender: TObject); begin AppLication.MessageBox('Зроблено Шкодин Андрієм','Про програму',MB_OK); end; procedure TMainForm.Timer1Timer(Sender: TObject); begin TimerNum:=TimerNum+1; StatusBar.Panels.Items[1].Text:='Секундомір '+ IntToStr(TimerNum); end; end. Скріншоти роботи програми

Висновок: На даній лабораторній роботі я навчився парацювати з технологією Drag&Drop та її використовувати при переміщенні інформації перетягуванням миші між різними елементами програми.