Одинаковый хендл у "родителя" и "ребенка"

[Alex Cones]

Просматриваю логи и что-то не пойму:

12.05.2010 10:03:12:140 *** WINDOWS INITIALIZATION ***********************
12.05.2010 10:03:12:140 * Background initialization .............STARTED *
12.05.2010 10:03:12:140 * Left position ...........................00000 *
12.05.2010 10:03:12:140 * Top position ............................00000 *
12.05.2010 10:03:12:140 * Width position ..........................01280 *
12.05.2010 10:03:12:140 * Height position .........................00800 *
12.05.2010 10:03:12:156 * Parent window ........................00000000 *
12.05.2010 10:03:12:156 * Handle of window .....................00001018 *
12.05.2010 10:03:12:156 * Background creating .................COMPLETED *
12.05.2010 10:03:12:156 * Main window initialization ............STARTED *
12.05.2010 10:03:12:171 * Left position ...........................00000 *
12.05.2010 10:03:12:171 * Top position ............................00000 *
12.05.2010 10:03:12:171 * Width position ..........................01280 *
12.05.2010 10:03:12:171 * Height position .........................00800 *
12.05.2010 10:03:12:171 * Parent window ........................00001018 *
12.05.2010 10:03:12:171 * Handle of window .....................00001018 *
12.05.2010 10:03:12:171 * Main window creating ................COMPLETED *
12.05.2010 10:03:12:171 * Windows initialization ..............COMPLETED *

Почему у парента и подчиненного один хендл? так и должно быть?

[Utkin]

Может чего в коде напутано? Например лог не того окна читает?

[Alex Cones]

Инициализация:

   UNTFRMVars.FRMBack.ClsName := 'TBack';                                                  UNTLOGProc.LogString('* Background initialization .............STARTED *');
   UNTFRMVars.FRMBack.Left    := 0;                                                        UNTLOGProc.LogString('* Left position ...........................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMBack.Left,5)+ ' *');
   UNTFRMVars.FRMBack.Top     := 0;                                                        UNTLOGProc.LogString('* Top position ............................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMBack.Top,5)+ ' *');
   UNTFRMVars.FRMBack.Width   := UNTFRMVars.Screen.Width;                                  UNTLOGProc.LogString('* Width position ..........................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMBack.Width,5)+ ' *');
   UNTFRMVars.FRMBack.Height  := UNTFRMVars.Screen.Height;                                 UNTLOGProc.LogString('* Height position .........................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMBack.Height,5)+ ' *');
   UNTFRMVars.FRMBack.Parent  := 0;                                                        UNTLOGProc.LogString('* Parent window ........................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMBack.Parent,8)+ ' *');
   UNTFRMProc.WindowCreate(FRMBack);                                                       UNTLOGProc.LogString('* Background creating .................COMPLETED *');
   UNTFRMVars.FRMMain.ClsName := 'TMain';                                                  UNTLOGProc.LogString('* Main window initialization ............STARTED *');
   UNTFRMVars.FRMMain.Left    := 0;                                                        UNTLOGProc.LogString('* Left position ...........................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMMain.Left,5)+ ' *');
   UNTFRMVars.FRMMain.Top     := UNTFRMVars.Screen.BCols.Height;                           UNTLOGProc.LogString('* Top position ............................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMMain.Top,5)+ ' *');
   UNTFRMVars.FRMMain.Width   := UNTFRMVars.Screen.Width;                                  UNTLOGProc.LogString('* Width position ..........................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMMain.Width,5)+ ' *');
   UNTFRMVars.FRMMain.Height  := UNTFRMVars.Screen.Height  -
                         (UNTFRMvars.Screen.BCols.Height * 2);                             UNTLOGProc.LogString('* Height position .........................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMMain.Height,5)+ ' *');
   UNTFRMVars.FRMMain.Parent  := FRMBack.Handle;                                           UNTLOGProc.LogString('* Parent window ........................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMMain.Parent,8)+ ' *');
   UNTFRMProc.WindowCreate(FRMMain);                                                       UNTLOGProc.LogString('* Main window creating ................COMPLETED *');

Создание:

Procedure WindowCreate(Var FRM : TShrewForm);
Begin
 FRM.hInst := UNTFRMExp.GetModuleHandle(Nil);
  With FRM.WinClass Do
   Begin
    Style := Cardinal(2) Or Cardinal(1); //$80;
    hIcon := UNTFRMExp.LoadIcon(FRM.hInst, PAnsiChar('MAINICON'));
    lpfnWndProc := @UNTFRMProc.WindowProc;
    hInstance := FRM.hInst;
    hbrBackground := 15 + 1;
    lpszClassName := FRM.ClsName;
    hCursor := UNTFRMExp.LoadCursor(0, PAnsiChar(32512));
   End;
 UNTFRMExp.InitCommonControls;
 UNTFRMExp.RegisterClass(FRM.WinClass);
 FRM.Handle := UNTFRMExp.CreateWindowEx(0, FRM.ClsName, 'Shrew',
 Cardinal($80000000) (* WS_POPUP *), FRM.Left, FRM.Top,
 FRM.Width, FRM.Height,
 FRM.Parent, 0,
 FRM.hInst, Nil);                                                               UNTLOGProc.LogString('* Handle of window .....................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRMBack.Handle,8)+ ' *');
End;

[Alex Cones]

Причем посмотрел лог при нестандартном разрешении экрана:

12.05.2010 10:31:27:953 * First column initialization............STARTED *
12.05.2010 10:31:27:953 * Left position ...........................00000 *
12.05.2010 10:31:27:953 * Top position ............................00000 *
12.05.2010 10:31:27:953 * Width position ..........................01280 *
12.05.2010 10:31:27:953 * Height position .........................00012 *
12.05.2010 10:31:27:953 * Parent window ........................00001150 *
12.05.2010 10:31:27:968 * Handle of window .....................00001150 *
12.05.2010 10:31:27:968 * First column creating ...............COMPLETED *
12.05.2010 10:31:27:968 * Second column initialization ..........STARTED *
12.05.2010 10:31:27:968 * Left position ...........................00000 *
12.05.2010 10:31:27:968 * Top position ............................00588 *
12.05.2010 10:31:27:968 * Width position ..........................01280 *
12.05.2010 10:31:27:968 * Height position .........................00012 *
12.05.2010 10:31:27:968 * Parent window ........................00001150 *
12.05.2010 10:31:27:968 * Handle of window .....................00001150 *
12.05.2010 10:31:27:984 * Second column creating ..............COMPLETED *
12.05.2010 10:31:27:984 * Windows initialization ..............COMPLETED *

еще два окна, которые являются "подчиненными" имеют такой же хендл.

[Stilet]

UNTFRMVars.FRMMain.Parent := FRMBack.Handle;
и
Handle of window...... UNTFRMVars.FRMBack.Handle

Ниче не настораживает?
Думаю тут должно быть:

UNTLOGProc.LogString('* Handle of window .....................' + UNTLOGProc.IntToStrWZ(UNTFRMVars.FRM.Handle,8)+ ' *');

[pu4koff]

Не увидел, где заполняется UNTFRMVars.FRMBack.Handle и почему выводится в лог он, а не FRM.Handle

[Utkin]

А почему получаем FRM.Handle, а пишем про какой-то UNTFRMVars.FRMBack.Handle? Так и надо, наверно именно про FRM.Handle писать, не?

ЗЫ. Ну блин не Утка-Ниндзя, а Утка-тормоз - опять опоздал .

[Alex Cones]

О! Спасибо. Блин. Curse you, моя невнимательность.