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;
И всё равно на форму ничего не выводится.
Делал всё, как в интернете нашёл, что неправильно?