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