![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() При разработке меню в приложении, проблем со стандартными опциями меню типа Файл > Открыть, Сохранить как... и т.д. не возникло. Проблема появилась с командой About - когда формируется отдельное простое окно с информацией о программе и кнопкой, при нажатии которой закрывается это окно. Написал about.pas, разместил этот файл в папке с исходником и вставил инструкцию с работающего примера:
procedure TForm1.About1Click(Sender: TObject); var AboutBox: TAboutBox; begin AboutBox := TAboutBox.Create(Self); try AboutBox.ShowModal; finally AboutBox.Free; end; end; ...но, при запуске программы получаю ответ: [Error] razm8_.pas(267): Undeclared identifier: 'TAboutBox' Объясните, пожалуйста, как правильно решить эту задачу. Заранее - спасибо. |
#2
|
|||
|
|||
![]() В модуле razm8_.pas должна быть ссылка на модуль, в котором описан тип TAboutBox:
uses about; Последний раз редактировалось AlexSku, 01.11.2007 в 13:14. |
#3
|
|||
|
|||
![]() Цитата:
Спасибо! Все получилось. Последний раз редактировалось cadil, 01.11.2007 в 15:52. |