![]() |
Прежде чем задать вопрос, смотрите 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 |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 0:25 |