![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
malor |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Реальное имя: yuriy Репутация: ![]() ![]() ![]() |
Хочу провести отладку проги. На форме есть компонент suiForm класса TsuiForm. Когда жму F8, то строка идет по тексту: begin Application.Initialize; Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TFormProbitie, FormProbitie); ... если я захочу зайти внутрь, скажем, Application.CreateForm(TFormProbitie, FormProbitie);, то попаду не в процедуру procedure TFormProbitie.FormCreate(Sender: TObject); как я ожидаю, а в такую процедуру: Код procedure TsuiCustomButton.Notification(AComponent: TComponent; Operation: TOperation); begin inherited; if ( (Operation = opRemove) and (AComponent = m_FileTheme) )then begin m_FileTheme := nil; SetUIStyle(SUI_THEME_DEFAULT); end; end; содержащуюся в файле SUIPack\Source\SUIButton.pas, а затем, по мере нажатий на F8, перейдет в Код procedure TsuiMaskEdit.Notification(AComponent: TComponent; из SUIPack\Source\SUIEdit.pas и т.д. Зачем мне эти блуждания по SUIPack-овским кодам? Я хочу сразу послеOperation: TOperation); begin inherited; if ( (Operation = opRemove) and (AComponent = m_FileTheme) )then begin m_FileTheme := nil; SetUIStyle(SUI_THEME_DEFAULT); end; end; нажатия F7 попадать в Application.CreateForm(TFormProbitie, FormProbitie);! Что делать? Delphi 7, SUIPack 4 |
hardcase |
![]()
Сообщение
#2
|
![]() code warrior ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 484 Пол: Мужской Реальное имя: Славен Репутация: ![]() ![]() ![]() |
Что делать?
Ставить бряки в нужных местах и не мучаться. А ещё стоит проверить, возможно в настройках Делфи стоит "Use debuging units" где конкретно, сказать затрудняюсь - давно 7ки не видел. -------------------- ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
|
malor |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Реальное имя: yuriy Репутация: ![]() ![]() ![]() |
В Project->Options...->Compiler->Use Debug DCUs галки не установлено.
|
![]() ![]() |
![]() |
Текстовая версия | 24.06.2025 8:37 |