60798

Створення головного меню і контекстного меню доданку

Конспект урока

Педагогика и дидактика

Вставка в форму головного і контекстного меню об‘єкти типу MinMenu і PopupMenu. Щоб ввести назви команд головного меню форми виберітьоб‘єкт MinMenu1 і двічі клацніть на його властивості Items.

Украинкский

2014-05-21

54 KB

0 чел.

Тема:  Створення головного меню і контекстного меню доданку.

1. Вставка в форму головного і контекстного меню ( об‘єкти типу MainMenu і PopupMenu).

Компоненти MainMenu   і PopupMenu   знаходяться на закладці Standard. Розташуйте їх в довільному місці форми ( на етапі виконування програми вони будуть невидимими).

Щоб ввести назви команд головного меню форми виберітьоб‘єкт MainMenu1 і двічі клацніть на його властивості Items. Другий засіб – двічі клацніть на самому об‘єкті.

Для задання назв команд контекстного меню форми треба аналогічно змінити значення властивості Items об‘єкту PopupMenu1 або прямо в вкні Form1. MainMenu1 ввести відповідні назви в шаблонах, що з‘являються ( це порожні області на малюнку)..

2. Програмування команди «Поле виведення» в меню «Очистити».

Клацніть по команді «Очистити», а потім – «Поле виведення».

Записати команду виклику методу Clear для очищення поля виведення об‘єкту Memo1.

procedure TForm1.N5Click(Sender: TObject);

 // Тут N5 – ім‘я команди «Поле виведення»

begin

 Memo1.Clear;          // Виклик методу Clear для очищення багаторядкового поля         

                                  //     редагування   Memo1.

end;


3. Програмування команди «Поля введення» в меню «Очистити».

Клацніть по команді «Очистити», а потім – «Поля введення».

Задати компонентам Edit1.Text та Edit2.Text значення «порожній рядок» - одинарні лапки, що стоять поруч (без пробілу). Це аналог нуля для числових величин.

procedure TForm1.N4Click(Sender: TObject);

begin

 

 Edit1.Text := ‘’;

  Edit2.Text := ‘’;

end;

3. Програмування команди  «Обчислити» головного меню.

Програмний код для команди «Обчислити» взяти із попередноього віранту задачі.

4. Програмування команди  «Закрити» головного меню.

Програмний код для команди «Закрити» взяти із попередноього віранту задачі.

Інтерфейс доданку


Програмний код

procedure TForm1.N3Click(Sender: TObject);

begin

Close

end;

procedure TForm1.N1Click(Sender: TObject);

var a,b,c,S : real;

    code    : integer;

    str1     : string[10];

    str2     : string[10];

begin

Val(Edit1.Text,a,code);

Val(Edit2.Text,b,code);

c:=Sqrt(a*a+b*b);

S:=a*b/2;

Str(c:8:2,str1);

Str(S:8:2,str2);

Memo1.Lines.Add('   Гіпотенуза    '+ str1);

Memo1.Lines.Add('   Площа          '+ str2);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Memo1.Clear;

end;

end.


 

А также другие работы, которые могут Вас заинтересовать

71476. ИСТОРИЯ ЗАРУБЕЖНОЙ КУЛЬТУРЫ. СРЕДНИЕ ВЕКА 1.5 MB
  Гаргульи - С французского переводится как «желоб, водосточная труба». Отсюда и их не только декоративное назначение: гаргульи издавна служат для отвода дождевой воды от крыш и стен зданий. Вода может извергаться из их пастей далеко за пределы собора, поэтому стены и фундамент защищены от разрушения.
71478. Словарь понятий. Литература 2.09 MB
  Аврелий Августин (354 - 430) - христианский теолог и философ, внес неоценимый вклад в разработку проблемы времени. Его биография хорошо известна благодаря написанной им книге «Исповедь», имеющий автобиографический характер. В своем учении Аврелий Августин следовал неоплатонизму...
71480. УГОЛОВНЫЙ ПРОЦЕСС: ПРАКТИКУМ 187.63 KB
  Следователь отказал в удовлетворении этого ходатайства на том основании что защитником обвиняемого не может быть его близкий родственник. Следует ли всех допрашивать в качестве свидетелей Что такое пределы уголовно-процессуального доказывания и каково их значение...
71481. ПОДГОТОВКА ГАЗОДЫМОЗАЩИТНИКА 11.59 MB
  Учебное пособие написано в соответствии с программой дисциплины «Подготовка газодымозащитника», по которой ведется обучение курсантов, слушателей и студентов очной и заочной форм обучения Петербургского университета ГПС МЧС России.
71482. ТЕОРЕТИЧЕСКИЕ ОСНОВЫ ИНФОРМАЦИОННОГО ОБЩЕСТВА 1.13 MB
  В истории развития цивилизации произошло несколько информационных революций преобразований общественных отношений из-за кардинальных изменений в сфере обработки информации. Этот период характеризуют три фундаментальные инновации: переход от механических и электрических средств...
71483. Микробиология 527 KB
  Настоящее учебно-практическое пособие по микробиологии, основам микробиологии, биологии и микробиологии, микробиологии рыбы и рыбных продуктов содержит сведения о морфологии, систематике и физиологии микроорганизмов- бактерий, мицелиальных грибов...
71484. Лабораторный практикум по микробиологии 558 KB
  Практикум имеет целью ознакомить студентов с морфологией и методами микроскопирования бактерий дрожжей мицелиальных грибов основами приготовления и способами стерилизации питательных сред и других предметов используемых в микробиологической практике.