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]

что неправильно?

Без понятия. Работает твой код:


Значит, что-то не сделал до этого в программе, например, не инициализировал InitCommonControls, гадать не очень хочется... Проверяй.