Лабораториялы жмыс №11 Тапсырма. Жаа басты меню, рылымын ру. Шешімі

 

1. Standard бетінен Form1 формаа MainMenu1 компонентін орналастырамыз.

 

2. Инспектор объектіден Items асиетіндегі MainMenu1 компонентін тадап, ш нктелі кнопкасын басамыз. Осыдан кейін конструктор менюі экранда крінеді.Констуктор менюі арылы меню элементін жазамыз.Клавишаны тез орын ауыстыруын & символы арылы беруге болады. Элемент менюі сызы арасын крсетуі шін, оны Caption асиетіне ‘-’ мнін береміз.

 

3. Егер барлы меню пунктін егізгеннен кейін , меню конструкторлы терезесін жабамыз. Form 1 формада рылан меню алады.Меню пунктіні реакциясын анытау шін, барлы меню пункттерін мышкамен басукерек. Осы кезде Редактор кода терезесі пайда болады. Оан OnClick оиасына программалы кодты жазу керек: New меню элементіні OnClick оиасы тмендегі трде болады:

 

Бл жердегі ShowMessage-стандартты функция, терезеге берілген тапсырма экрана шыарады.

 

Жобаны сатап, орындауа жібереміз.

 

 


 

 

Модульді алыптасуыны толы текстін крсетеміз. unit Popup1;

 

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;

type

TForm1 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem;

Edit1: TMenuItem;

Run1: TMenuItem;

New1: TMenuItem;

Open1: TMenuItem;

Save1: TMenuItem;

Close1: TMenuItem; N1: TMenuItem; Rropen1: TMenuItem; Project11: TMenuItem; Progect21: TMenuItem; Project31: TMenuItem; Cut1: TMenuItem; Copy1: TMenuItem; Past1: TMenuItem; Delete1: TMenuItem; Run2: TMenuItem; N2: TMenuItem; raceInto1: TMenuItem;

procedure New1Click(Sender: TObject); procedure Open1Click(Sender: TObject); procedure Save1Click(Sender: TObject); procedure Close1Click(Sender: TObject); procedure Project11Click(Sender: TObject); procedure Progect21Click(Sender: TObject); procedure Project31Click(Sender: TObject); procedure Cut1Click(Sender: TObject); procedure Copy1Click(Sender: TObject); procedure Past1Click(Sender: TObject); procedure Delete1Click(Sender: TObject); procedure Run2Click(Sender: TObject); procedure N2Click(Sender: TObject);

 


procedure raceInto1Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1; implementation {$R *.dfm}

 

procedure TForm1.New1Click(Sender: TObject); begin

ShowMessage ('Выбранпункт New'); end;

 

procedure TForm1.Open1Click(Sender: TObject); begin

ShowMessage ('Выбранпункт New') end;

 

procedure TForm1.Save1Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Save') end;

 

procedure TForm1.Close1Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Close') end;

 

procedure TForm1.Project11Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Project1') end;

 

procedure TForm1.Progect21Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Project2') end;

 

procedure TForm1.Project31Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Project3') end;

 

procedure TForm1.Cut1Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Cut') end;

 

procedure TForm1.Copy1Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Copy') end;

 

procedure TForm1.Past1Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Past') end;

 

procedure TForm1.Delete1Click(Sender: TObject); begin

 


ShowMessage ('Выбранпункт Delete') end;

 

procedure TForm1.Run2Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Run') end;

 

procedure TForm1.N2Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Step Over') end;

 

procedure TForm1.raceInto1Click(Sender: TObject); begin

ShowMessage ('Выбранпункт Trace Into') end;

 

end.

Лабораториялы жмыс №12 Тапсырма

TOLEContainer компонентін пайдалану мысалы.

Мысал. Paintграфикалы редакторы терезесінDelphiортасына шаырып,суретсалу жне салынан суретті формада крсету керек.

 

1. Standard бетінен Form1 формаа OLEContainer1 компонентін орналастырамыз.

 

2. Орнатылан компонентті екі рет шерту. Объектіні кірістіру терезесі крінеді.

 

 

Оан объект типтеріні тізімінен кез-келгенін тадап іске оса беруге болады.

4. Тізімнен Точечный рисунок PaintBrush атарын тадап, терезені ОК тймесін шертеміз. Delphi-ге Paint графикалы редакторы осылып ойылады жне форма айта ашылады.

 

5. OLEContainer компонентін екі рет шертсеіз келесі сурет шыады.

 


 

Paint ммкіндігін пайдаланып алаан суреттеріізді салып,оныФайл/Сохранитькак...командасымен сатап ойыыз.

 

6. Терезені жабыыз. Компонент ішінде сурет салынан форма крінеді.

 

 

Лабораториялы жмыс №13 Тапсырма

Мтіндік массивті реттеу.Массивті класс асиетін пайдаланып реттеу.

 

Мысал.аза ріптері бойынша тменде жазылан аты-жндерін бірінші ріптерібойынша реттеу керек.

 

Мдіхожаев Слтан Ысаова Дамира Мстафаев ажым Атчабаров Жнібек Оралханова Маржан

 

1. Жаа проект ашып, формаа Panel1, панель стіне Button1, форманы жоары жаына Memo1 копонентін орнату керек.

 

2. Компоненттерге келесі асиеттеріне мн меншіктеу керек:

Форма Font   Times New Roman,10
Coption   Реттеу
Panel1 Coption бос етііз
Align   alBottom
Button1 Name   OK
Memo1 Align   alClient
ScrollBars ssBoth  

 


WordWrap False

3. Button1 тймесіне OnClick оиасын деуіш ру: procedureTForm1.Button1Click(Sender: TObject);

 

Constn=5;

vara:array[1..n] of string;d,k,j:integer;

r:string; begin

fork:=1tondoa[k]:=InputBox(a[k],'rtprtkuty 'ktvtyn-','');

r:='АБВГДЕЖЗИЙКЛМНОПРСТУФХ...'; d:=length(r);

 

forj:=1toddo fork:=1tondo

if copy(a[k],1,1)=copy(r,j,1)thenMemo1.Lines.Add(a[k])end;

4.Проектіні іске осамыз,сонда келесідей форма шыады,оан мндерді енгіземіз

 

 

Нтижесі келесідей реттелген массив шыады

 

Лабораториялы жмыс №14 Тапсырма

 

Биттік бейнелерді жылжыту О.Камардиновты кітабыны 126 беттегі тапсырманы орындаыз. Файла мысалдар.

Мысал.Типтік файл форматын пайдаланып,келесі тізімді

 

1. Шймерденызы Глнар 1975 аза
2. Оралханлы Ержан 1977 аза
3. Нралиызы Жмила 1978 аза