TabControlのタブの列数を取得する

TabControlのタブの列数を取得するには、TCM_GETROWCOUNT メッセージをコントロールに送信します。 TCM_GETROWCOUNT メッセージは CommCtrl ユニットに定義してあります。

■ TabControlのタブの列数を取得する例 
procedure TForm1.BitBtn1Click(Sender: TObject);  
var
  row : integer;
begin
  row :=  TabControl1.Perform(TCM_GETROWCOUNT, 0, 0);  
end;