Основы COM. Рудалев В.Г - 31 стр.

UptoLike

31
procedure Initialize; override;
end;
и большое количество строк кода, сгенерированных мастером самостоятельно.
Нам понадобится добавить в описание формы необходимые компоненты и на -
писать здесь обработчик событий.
Этап 2. Создание экранной формы
На этом этапе форма ActiveForm ничем не отличается от обычной формы . На
ней можно размещать средства управления и создавать обработчики событий.
Единственное различие между ними состоит в том, что заголовок окна
ActiveForm не будет появляться на самом элементе управления. Он присутству-
ет там только во время проектирования.
Теперь следует добавить компоненты и код , придающие форме способность
производить некоторые действия. Разместите четыре Т Label, два TEdit и од -
ну кнопку в соответствии с рисунком.
Измените свойство формы АхВогderStyle на afbRaised.
В обработчик события OnClick для кнопки введите следующий код :
procedure TMyFormX.GoButtonClick(Sender: TObject);
begin
try
ResultLbl.Caption := IntToStr(StrToInt(NumlEdit.Text)
*StrToInt(Num2Edit.Text));
except
on EConvertError do
ShowMessage('Вы что-то не то ввели!');
end;
end;
Если при преобразовании текста в целочисленные значения произойдет ошибка
( например, одно из окон редактирования будет содержать буквы), будет возбу-
ждено исключение EConvertError.
Выберите в главном меню View | Type Library. В информационной панели из-
мените значение поля Help String на My Test ActiveForm Library. Теперь при ус-
тановке формы ActiveForm этот текст будет отображаться в панели диалога
                                          31
     procedure Initialize; override;
 end;
и больш оеколи честв о строккод а, сгенери ров анны х мастером самостоятельно.
Н ам понад оби тся д обав и ть в опи сани еформы необход и мы е компоненты и на-
пи сать з д есь обработчи к собы ти й .

Э тап 2. Соз д ани еэкранной формы
Н а этом этапе форма ActiveForm ни чем не отли чается от обы чной формы . Н а
ней мож но раз мещ ать сред ств а управ лени я и соз д ав ать обработчи ки собы ти й .
Е д и нств енное раз ли чи е меж д у ни ми состои т в том, что з аголов ок окна
ActiveForm небуд етпояв лятьсяна самом элементеуправ лени я. О н при сутств у-
еттам только в о в ремяпроекти ров ани я.
Т еперь след ует д обав и ть компоненты и код , при д аю щ и е форме способность
прои з в од и ть некоторы ед ей ств и я. Раз мести течеты реТLabel, д в а TEdit и од -
ну кнопку в соотв етств и и сри сунком.




И з мени тесв ой ств о формы АхВогderStyle на afbRaised.
В обработчи ксобы ти яOnClick д лякнопки в в ед и теслед ую щ и й код :
procedure TMyFormX.GoButtonClick(Sender: TObject);
begin
  try
    ResultLbl.Caption := IntToStr(StrToInt(NumlEdit.Text)
                        *StrToInt(Num2Edit.Text));
  except
    on EConvertError do
      ShowMessage('Вы что-то не то ввели!');
  end;
end;
Е сли при преобраз ов ани и текста в целочи сленны ез начени япрои з ой д етош и бка
(напри мер, од но и з окон ред акти ров ани я буд етсод ерж ать букв ы ), буд етв оз бу-
ж д ено и склю чени еEConvertError.
В ы бери те в глав ном меню View | Type Library. В и нформаци онной панели и з -
мени тез начени еполяHelp String на My Test ActiveForm Library. Т еперь при ус-
танов ке формы ActiveForm этот текст буд ет отображ аться в панели д и алога