Лекция: Задание № 1

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 аналогичен предыдущему.

 

еще рефераты
Еще работы по информатике