Editfehld einer pageSeite zuordnen

[mimi]

leider geht das nicht....
(keine wirkung), hier mein code:

Delphi-Quellcode:

procedure CreateSheeats(hwnd:HWND;Name:String);
var
  i:Integer;
  rect:TRect;
begin
  SetLength(tabs,2);
  tabs[0].text:='test1';
  tabs[1].text:='test2';
  //hTab := GetDlgItem(hwnd, 0);
    
   hTab:=CreateWindowEx(DS_CONTROL , 'SysTabcontrol32', '' ,WS_CHILD or WS_VISIBLE
    ,0 ,0, WindowWidth, WindowHeight, hwnd, 0, 0, nil);

   for i:=0 to high(tabs) do begin
    tcItem.mask:=TCIF_TEXT;
    tcItem.pszText:=Pointer(tabs[i].text);
    tabs[i].index:=CreateDialog(HInstance,Pchar(tabs[i].text),htab,@tabdlgfunc);

    SendMessage(hTab, TCM_INSERTITEM, i, Integer(@tcItem));
  end;
  

  SendMessage(htab, TCM_GETITEMRECT, 0, Longint(@rect));

//  if tabs[1].index = 0 then MessageBox(hwnd,PChar('TEST'),PCHAR('TEST!'),0);
  SetWindowPos(tabs[0].index, 0, 50, (rect.Bottom - rect.Top) + 50, 0, 0,
  SWP_NOSIZE or SWP_NOZORDER or SWP_SHOWWINDOW );
  hwndMemo1:=CreateWindowEx(WS_EX_STATICEDGE, 'Edit', '', WS_VISIBLE or WS_HSCROLL or WS_VSCROLL or
  WS_CHILD or ES_NOHIDESEL or ES_MULTILINE or ES_AUTOVSCROLL or ES_AUTOHSCROLL, 0, 30, WindowWidth-10, WindowHeight-80, htab, 0, 0, nil);
//  SetParent(hwndMemo1,htab);
end;