Tabsheets ohne res nutzen wie geht das ?

[mimi]

Hallo,
ich wollte gerne ein TabSheet erzeugen..
aus dem beispiel von Luckie's tutorial für WinApi habe ich mir einige sachen raußkopiert...
aber leider sehe ich keine Sheets auf dem form. ich habe die unit mal angehangen.
ich hoffe einer von euch kann mir sagen warum das nicht geht !

[mimi]

problem gelöst... ich musst einfach folgenden code ändern und dann ging es so wie ich wollte:

Delphi-Quellcode:

procedure CreateSheeats(hwnd:HWND;Name:String);
var
  i:Integer;
  rect:TRect;
begin
  SetLength(tabs,high(tabs)+3);
  tabs[0].text:='test2';
  tabs[1].text:='test1';
  //hTab := GetDlgItem(hwnd, 0);
  hTab:=CreateWindowEx(DS_CONTROL , 'SysTabcontrol32', 'test1' ,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:=Pchar(tabs[i].text);
    tabs[i].index:=CreateDialog(hInstance,Pchar(tabs[i].text),htab,@tabdlgfunc);

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

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

  SetWindowPos(tabs[0].index, 0, 50, (rect.Bottom - rect.Top) + 50, 0, 0,
  SWP_NOSIZE or SWP_NOZORDER or SWP_SHOWWINDOW );
end;

allerdings weiß ich nicht ob das der standart weg ist... im tutorial von luckie steht nämlich nur drin wies mit res dateien geht und die wollte ich erstmal nicht nutzen !
das habe ich mir mal ausgedacht....