![]() |
|
| Правила Форума редакция от 22.06.2020 |
|
|||||||
|
|
Окажите посильную поддержку, мы очень надеемся на вас. Реквизиты для переводов ниже. |
|
![]() |
|
|
Опции темы | Опции просмотра |
Language
|
|
|
#1
|
|
Неактивный пользователь
Пол:
Регистрация: 02.07.2007
Сообщений: 19
Репутация: 0
|
Хочу провести отладку проги. На форме есть компонент 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;
Код:
procedure TsuiMaskEdit.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;
нажатия F7 попадать в Application.CreateForm(TFormProbitie, FormProbitie);! Что делать? Delphi 7, SUIPack 4 |
|
|
|
| Реклама: | франциско бош | Магазин бытовой техники: отпариватель polaris pgs 1820va - переходи на сайт ТАЙМТВ! | TikTok Shopify | привод belimo ушел с рынка в россии | Магазин бытовой техники: холодильник атлант 142 см - переходи на сайт ТАЙМТВ! |
|
|
#2
|
|
Неактивный пользователь
Пол:
Регистрация: 24.08.2006
Сообщений: 31
Репутация: 6
|
Надо использовать точки останова...
__________________
Бог два раза в жизни дает человеку бесплатные зубы... в третий раз за них предется платить... :4: |
|
|
|
![]() |
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Что Вам мешает бросить курить?... | mimi | Если хочешь быть здоров | 192 | 11.05.2015 14:19 |
| Помогите с TMSComponentPack4607 и с SUIPack | Dr Evil | Компоненты | 10 | 20.10.2009 15:02 |
| 2 оси, 1 проги | casperok | Архив | 7 | 23.06.2006 13:18 |
|
|