您现在的位置:首页 >> VCL >> VCL >> 内容

Delphi中获取TTabControl选中的Tab

时间:2011/9/3 16:24:19 点击:

  核心提示:uses commctrl;//display TabControl1 selected tabcaptions in an edit (Edit1) controlvarcnt: Integer;t...
uses commctrl;

//display TabControl1 selected tab
  captions in an edit (Edit1) control

var
  cnt: Integer;
  tabItem: TTCItem;
  selTabs: string;
begin
  selTabs := '';
  for cnt := 0 to -1 + TabControl1.Tabs.Countdo
  begin
    FillChar(tabItem, SizeOf(tabItem), 0) ;
    tabItem.mask := TCIF_STATE;
    tabItem.dwStateMask := TCIS_BUTTONPRESSED;
    if SendMessage(TabControl1.Handle, TCM_GETITEM, cnt, Longint(@tabItem)) <> 0 then
      if (tabItem.dwState and TCIS_BUTTONPRESSED) <> 0 then
        selTabs := selTabs + TabControl1.Tabs[cnt] + '|';
  end;

  Edit1.Text := '|' + selTabs;
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2019 版权所有 All Rights Reserved.
  • 沪ICP备05001939号