Tabsheets ohne res nutzen wie geht das ?

[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....