Читайте также:
|
Допустим, нужно создать меню программы, каждая строка которого открывает различные формы, в которых изображены различные процессы. Заранее нужно открыть необходимые нам формы. В паспорте 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 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Перечисляемый тип | | | Типы и переменные |