|
|
|
Junior Member
 
участник
Last Login: 08.11.2007 9:27
Сообщ.: 20,
Visits: 49
|
|
Хочу провести отладку проги. На форме есть компонент 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;
Operation: TOperation);
begin
inherited;
if (
(Operation = opRemove) and
(AComponent = m_FileTheme)
)then
begin
m_FileTheme := nil;
SetUIStyle(SUI_THEME_DEFAULT);
end;
end; из SUIPack\Source\SUIEdit.pas и т.д. Зачем мне эти блуждания по SUIPack-овским кодам? Я хочу сразу после
нажатия F7 попадать в Application.CreateForm(TFormProbitie, FormProbitie);! Что делать?
Delphi 7, SUIPack 4
|
|
|
|