TabControl WinAPI, Не рисуется Опции

[TarasBer]

Создаю я окно класса wc_TabControl, потом делаю так

  FillChar(tsTab, SizeOf(tsTab), 0);

  with tsTab do begin
    Mask := tcIf_Text or tcIf_Image;
    iImage := -1;
    pszText := 'ID0';
    SendMessage(tcSelect, TCM_INSERTITEM, 0, Longint(@tsTab));
    pszText := 'ID1';
    SendMessage(tcSelect, TCM_INSERTITEM, 1, Longint(@tsTab));
    pszText := 'ID2';
    SendMessage(tcSelect, TCM_INSERTITEM, 2, Longint(@tsTab));
  end;

И всё равно на форму ничего не выводится.
Делал всё, как в интернете нашёл, что неправильно?

[volvo]

GetClientRect возвращает внешние границы.

Да. Чтобы получить клиентскую область, надо либо вызвать функцию TabCtrl_AdjustRect (в оригинале это - макрос), либо послать сообщение TCM_ADJUSTRECT. С использованием функции действия вот такие:

  GetClientRect(tcSelect, R); // Получаем внешние границы
  TabCtrl_AdjustRect(tcSelect, False, @R); // а теперь R - это клиентская область

Только учти, что этот макрос/сообщение работает только в случае, если закладки табов находятся сверху. В других случаях это не работает.