Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Компонент MainMenu - главное меню формы.

Читайте также:
  1. Host BusПредназначена для скоростной передачи данных (64 разряда) и сигналов управления между процессором и остальными компонентами системы.
  2. I.10. Изучение комбинированного действия поликомпонентных лекарственных препаратов
  3. VI. АЗИАТСКОЕ ГЛАВНОЕ ПЛЕМЯ СРЕДИЗЕМНОЙ РАСЫ
  4. Z-преобразование синусной компоненты выходного сигнала связано с Z-преобразованием входного сигнала следующим соотношением
  5. Альтернативные многокомпонентные хладагенты групп ГХФУ
  6. Альтернативные многокомпонентные хладагенты на основе углеводородов
  7. АФФЕКТИВНЫЙ КОМПОНЕНТ

Допустим, нужно создать меню программы, каждая строка которого открывает различные формы, в которых изображены различные процессы. Заранее нужно открыть необходимые нам формы. В паспорте MainMenu нужно активизировать вкладку Item, раскроется пустой список, в свойстве Caption прописать заглавия пунктов меню.

Дважды щелкнув на каждом пункте меню, пропишем необходимые нам действия

procedure TForm1.N2Click(Sender: TObject);

Begin

Form2.Show;

end;

 

procedure TForm1.N3Click(Sender: TObject);

Begin

Form3.Show;

end;

 

procedure TForm1.N4Click(Sender: TObject);

Begin

Form4.Show;

end;

В этом примере предусмотрено, что первая форма главная, вторая форма описывает первый процесс, третья – второй, четвертая – третья.

Если в меню нужно создать подменю, его можно создать нажатием клавиш (→ + Ctrl)

Компонент PopurMenu - контекстное меню.

Используется для создания контекстных меню, появляющихся при щелчке на компоненте правой кнопки мыши.

Расположить компонент на форме PopurMenu1. Свяжем его с другим компоненом, например, с кнопкой Button1. В паспорте кнопки, в свойстве PopurMenu пропишем PopurMenu1. Дальше прописываем нужные действия также, как и в MainMenu, например

procedure TForm1.N11Click(Sender: TObject);

Begin

Edit1.Text:='1';

end;

 

procedure TForm1.N21Click(Sender: TObject);

Begin

Edit1.Text:='2';

end;

 

procedure TForm1.N31Click(Sender: TObject);

Begin

Edit1.Text:='3';

end;

Получим, нажатием правой кнопки мыши на компонент Button можно изменить текст в компоненте Edit.

Компонент CheckBox (флажок)

Использовать флажок можно для того, чтобы пользователь мог указать свое решение да/нет. Пример программы с использованием флажка

procedure TForm1.CheckBox1Click(Sender: TObject);

Begin

if CheckBox1. Checked

then Edit1.Text:='Флажок есть'

else Edit1.Text:='Флажка нет;

end;


Дата добавления: 2015-07-15; просмотров: 78 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Перечисляемый тип| Типы и переменные

mybiblioteka.su - 2015-2024 год. (0.008 сек.)