Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
1. С помощью Menu Designer добавьте в форму полоску меню. Эта полоска имеет три выпадающих меню: меню File c единственной командой Exit; меню Options с командами Font, Color, Left, Center, Hight (между Color и Left установите разделитель, для Left, Center, Hight назначьте горячие клавиши); меню Help с элементом About. Чтобы поместить разделитель, вместо текста команды вставьте просто дефис.
2. В форму поместите компонент RichEdit и две пиктограммы диалогов FontDialog и ColorDialog.
3. Для отклика на команды меню вы должны определить метод для события OnClick каждого элемента меню. Код метода TForm1.Font1Click:
procedure TForm1.Font1Click(Sender:TObject);
Begin
FontDialog1.Font:= RichEdit1.Font;
FontDialog1.Execute;
RichEdit1.Font:= FontDialog1.Font;
End;
Код метода TForm1.Color1Click аналогичен предыдущему.
Код метода TForm1.Left1Click:
procedure TForm1.Left1Click(Sender:TObject);
Begin
RichEdit1.Paragraph.Alignment:= taLeftJustify;
Left1.Checked:= True;
Center1.Checked:= False;
Right1Checked:= False;
End;
Чтобы поставить галочку в ряде выбираемых опций, установите свойство Checked элемента меню в окне Object Inspector в True.
4. Код методов для элементов Center и Right аналогичен предыдущему.
Дата публикования: 2014-10-25; Прочитано: 341 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!