Основне меню  

   

Реклама  

Скачуйте відеуроки для створення сайту за допомогою SMS Joomla 

реклама

 

   

Ми в Facebook  

Калькулятор расчета пеноблоков смотрите на этом ресурсе
Все о каркасном доме можно найти здесь http://stroidom-shop.ru
Как снять комнату в коммунальной квартире смотрите тут comintour.net
   

Реклама в мережі  

   

Статистика  

Користувачі
1
Статті
168
Перегляди статей
397299
   

Пошук по сайту  

   

Ми знаходимось тут  

   

Випадкове фото  

   

Наш відеоканал  

   

Відвідування сайту  

Яндекс.Метрика

 

   

Посібник Delphi  

ДОСТУПНИЙ ВИКЛАД,

ЦІКАВІ ПРИКЛАДИ, ВИХІДНІ КОДИ.

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 500 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Відеокурс по С++  

   

Рекомендуємо:  

   

Ми в контактах  

   

Сайти  

Українські уроки про ІТ

Єдина Країна! Единая Страна!

 

Українські уроки про програмування

 

 
   

Компонент tmainmenu призначений для додавання до програми головного меню, без якого не обходиться практично жодна з програм windows.

Щоб додати меню, треба вибрати на панелі компонентів standart (стандартні) компонент tmainmenu і помістити його на формі в довільному місці.

Компонент tmainmenu невізуальний, на відміну від візуальних компонентів tedit і tlabel, які в точності відповідають своїм зовнішнім виглядом в працюючій програмі.

Це означає, що хоча він видимий на формі як невеликий значок, у вікні створеної програми в такому вигляді він не з'явиться. Подання його на формі в мініатюрному вигляді просто вказує на наявність в програмі об'єкту, відповідального за меню.

 

 

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

 Розглянемо застосування нового компонента на конкретному прикладі.

  Практична робота

Завдання. Додати головне меню в створений Вами раніше проект  Калькулятор. В горизонтальне меню включити назви арифметичних дій: «Додавання» і «Ділення».

Хід виконання проекту

1. Відкрийте в середовищі програмування Lazarus проект Калькулятор, створений в 5 уроці.

2. Помістіть компонент MainMenu на форму.

3. Щоб почати формування пунктів меню двічі клацнути по компоненту TMainMenu1 на формі або натисніть на кнопку з трьома крапками у властивості Items компонента в інспектора об'єктів.

 На формі в горизонтальному меню з'явитися перший пункт, який за замовчуванням має ім'я New Item1 (Новий Елемент1). Відкриється спеціальне вікно редактора меню.

 

4. В інспектора об'єктів в властивість Caption введіть ім'я першого пункту меню Додати.

 5. Щоб створити наступний пункт меню, встановіть курсор на поточний елемент меню і відкрийте контекстне меню правим клацанням. Виберіть "Вставити новий пункт (після)"(Insert NewItem (after).

 

 На формі з'явиться наступний пункт горизонтального меню.

 6. В інспектора об'єктів в властивість Caption введіть назву другого пункту меню: Поділити.

7. Тепер залишилося написати програмний код, який буде виконуватися при виборі пунктів меню.

Напишемо загальну для всіх пунктів меню процедуру Znak, параметром якої буде символ арифметичної операції «+» або «/». Процедура буде отримати числові значення з полів EditNum1 і EditNum2, виконувати  зазначену в якості параметра операцію і виводити отриманий результат в поле EditResult.

Текст процедури потрібно помістити в розділ Implementation після директиви {$ R * .lfm}.

procedure Znak(zn:char);

label mitka;

var result, num1, num2:real;

begin

    num1:=StrToFloat(form1.editNum1.text);

    num2:=StrToFloat(form1.editNum2.text);

    case zn of

    '+': result:=num1 + num2;

    '/': if num2<> 0 then result:=num1/num2;

    else

      begin

       showMessage('Делить на 0 нельзя!');

       form1.editNum2.text := '';

       form1.editNum2.SetFocus;

       form1.editResult.text := '';

       goto mitka;

      end;

   end; // casse

   form1.EditResult.Text := FloatToStr(Result);

   mitka:

end;

8. Напишемо обробник для пункту меню Додати. Для цього двічі клацніть на цьому пункті меню.

Програмний код буде мати наступний вигляд:

procedure TForm1.MenuItem1Click(Sender: TObject);

begin
   znak('+');
end;

У програмному коді викликається написана нами процедура Znak, в якій в якості фактичного параметра передається знак арифметичної дії.

9. Напишемо обробник для пункту меню Поділити.

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
   znak('/');
end;
10. Проект готовий. Перевірте роботу програми. Для цього введіть довільні числа в поля введення, виберіть в горизонтальному меню потрібну дію, перевірте результат.  
   

Поділіться з друзями

 
   

Сайт для перевірки своїх знань з програмування на сайті:http://www.quizful.net/test


 Розробка сайтів, інтернет-магазинів під ключ. Створення програмного забезпечення для обліку в магазинах,

гуртовнях, ведення власного бізнесу та інших. Написання дипломних та курсових робіт з програмування, баз даних.

 

Звертайтесь за адресою email:kuzbyt@ukr.net

 

 

© (C) Sambir, I.Kuzbyt