Menu
Except
Try
Продолжение примера из лабораторной работы № 2.
Метод Create
procedure Create(s: PString);
Позволяет создать объект – исключение, параметр – свойство Message. (см. пример ниже).
...
procedure ConvInputData(var a:real; var b:real);
begin
a:= StrToFloat(MainWindow.edA.Text);
b:= StrToFloat(MainWindow.edB.Text);
if not (((a>=0.1)and(a<=1.0)) and ((b>=0.05)and(b<=3.0))) then
raise EConvertError.Create(''); {строка Message не нужна}
end;{ConvInputData}
procedure TMainWindow.btCalcClick(Sender: TObject);
var
a, b, h: real;
begin
ConvInputData(a,b);
if (a>=b) then begin
h:= 3.0*a*a - b*b
end
else begin
h:= ln(3.0*a*a - b*b);
end;
lbResult.Caption:= FloatToStr(h);
on EConvertError do begin
MessageBeep(MB_ICONEXCLAMATION);
lbResult.Caption:= 'Неверные параметры';
end;
on e: Exception do begin {какое-то неожиданное исключение}
MessageBeep(MB_ICONEXCLAMATION);
lbResult.Caption:= e.Message;
end;
end;{try}
end;{TMainWindow.btCalcClick}
В рамках Windows имеются два типа компонентов:
1) T Main Menu (Menu Bar).
2) T Pop Up Menu (контекстное меню).
4.10.1. Свойства T Main Menu и T Pop Up Menu:
1) Items: массив T Menu Item (дизайнер меню).
2) Help Context: long (свойство T Pop Up Menu) – справка.
4.10.2. События объектов T Pop Up Menu:
1) On Pop Up (т. е. для каждого визуального компонента может быть создано контекстное
|
|
меню).
· Name
· Caption: string
· Help context: long
· Hint: string.
· Short cut:T Short Cut (свойство быстрого вызова пункта меню).
· Default: Boolean (Вызов того пункта меню, у которого это свойство установлено в истинное значение).
· 6) Enabled: Boolean(True) разрешение выбора пункта меню.
· Visible: Boolean (True).
· Break (для разрыва меню на несколько колонок).
· Checked: Boolean (False)
· Radio Item: Boolean (False) – при установке этих двух свойств в истинное значение соответствующий пункт меню ведет себя как флажок (checked) или радио- кнопка (radio item).
Чтобы создать меню, необходимо на странице Standart выбрать раздел T Main Menu или T Pop Up Menu.
Главное меню у формы может быть только одно.
Компоненты Pop Up Menu вручную привязываются к тем элементам, для которых они предназначены.
Для того, чтобы задать элементы меню, нужно воспользоваться дизайнером меню.
4.11.1. Свойства панели инструментов:
· Buttons: массив T Tool Button (кнопки панели инструментов).
· Images: T Image List (содержит образы, которые должны быть на кнопках).
· Disabled Images: T Image List
· Hot Images: T Image List(эти свойства содержат списки образов на кнопках).
4.11.2. Кнопки панели инструментов (T Tool Button):
· Style tbs Button (кнопка)
· tbs Check (кнопка с фиксацией)
· tbs Separator и tbs Divider (разделители кнопок панели инструментов).
· Image Index: long (номер образа в списке изображений).
Событие – On click.
· Объект T Image List (двойной щелчок).
· Объект T Tool Bar (двойной щелчок).
· Объект T Tool Button (контекстное меню в палитре инструментов).
· Настройка свойств – в инспекторе объектов.
Лекция № 8.