Смекни!
smekni.com

Страница Additional дополнительные палитры VCL (стр. 2 из 2)

procedure TAdditionalTab.BitBtn2Click (Sender: Tobject);

begin

ShowMessage('This feature not active');

end;

21. Форма "Additional Tab" закончена и готова к тестированию. Сохраните проект и протестируйте его. Должны работать просмотр двух форм и эксперименты с компонентами, которые вы разместили на обеих страницах. Понажимайте на кнопки линейки инструментов и понаблюдайте результаты. С помощью линейки прокрутки вы должны увидеть кнопку Help и панель. Щелкните на кнопке Help в панели с прокруткой и убедитесь, что появляется окно с сообщением. Когда все закончено, нажмите Close, и программа завершится.

22. Задание. Вернитесь к первому приложению "StandardTab' и дополните его кодом для опций меню Help (справка) и About (о программе). Для этого можно воспользоваться процедурой ShowMessage (показать сообщение). Создайте меню File