电竞比分网-中国电竞赛事及体育赛事平台

搜索
分享

Delphi XE7實(shí)現(xiàn)TTabControl在TabItem添加關(guān)閉按鈕

 A芝蘭之室 2017-10-20






介紹

本文章介紹了Delphi XE7實(shí)現(xiàn)TTabControl在TabItem添加關(guān)閉按鈕，該程序使用到了uFMXTabItemWithCloseBtn，在這個(gè)單元中實(shí)現(xiàn)了點(diǎn)擊按鈕關(guān)閉tabitem的功能，具體代碼如下：
  1. unit uFMXTabItemWithCloseBtn;

  3. interface

  5. uses
  6.   FMX.TabControl;

  8. type
  9.   TTabControlHelper = class helper for TTabControl
  10.   private
  11.     procedure CloseButtonClick(Sender: TObject);
  12.     procedure TimerOnTimer(Sender: TObject);
  13.   public
  14.     procedure CheckCloseBtn(const iBtnResourceName: String = 'closebutton');
  15.   end;

  17. implementation

  19. uses
  20.   System.UITypes
  21.   , System.Classes
  22.   , FMX.Types
  23.   , FMX.StdCtrls
  24.   ;

  26. { TTabControlHelper }

  28. var
  29.   GRemoveTimer: TTimer;
  30.   GIndex: Integer;
  31.   GRemoveTab: TTabItem;
  32.   GTabControlHelperChecked: Boolean = False;

  34. procedure TTabControlHelper.CheckCloseBtn;
  35. var
  36.   B: TFmxObject;
  37.   TabItem: TTabItem;
  38.   i: Integer;
  39. begin
  40.   if (GTabControlHelperChecked) then
  41.     Exit;

  43.   for i := 0 to TabCount - 1 do begin
  44.     TabItem := Tabs[i];

  46.     B := TabItem.FindStyleResource(iBtnResourceName);

  48.     if (B <> nil) and (B is TCustomButton) then begin
  49.       B.TagObject := TabItem;

  51.       TabItem.AutoSize := False;
  52.       TabItem.Width := TabItem.Width + TCustomButton(B).Width * 1.5;

  54.       TCustomButton(B).OnClick := CloseButtonClick;

  56.       GTabControlHelperChecked := True;
  57.     end;
  58.   end;
  59. end;

  61. procedure TTabControlHelper.CloseButtonClick(Sender: TObject);
  62. var
  63.   TabItem: TTabItem;
  64.   i: Integer;
  65.   Len: Integer;
  66. begin
  67.   if (Sender is TCustomButton) then begin
  68.     GRemoveTab := TTabItem(TCustomButton(Sender).TagObject);

  70.     GIndex := -1;
  71.     Len := TabCount - 1;

  73.     for i := 0 to Len do begin
  74.       TabItem := Tabs[i];

  76.       if (TabItem = GRemoveTab) then begin
  77.         if (i = Len) then begin
  78.           if (Len > 0) then
  79.             GIndex := i - 1;

  81.           Break;
  82.         end
  83.         else begin
  84.           GIndex := i;
  85.           Break;
  86.         end;
  87.       end;
  88.     end;

  90.     GRemoveTab.Release;

  92.     TabIndex := -1;

  94.     if (GIndex <> -1) then begin
  95.       GRemoveTimer := TTimer.Create(nil);
  96.       GRemoveTimer.OnTimer := TimerOnTimer;
  97.       GRemoveTimer.Interval := 20;
  98.       GRemoveTimer.Enabled := True;
  99.     end;
  100.   end;
  101. end;

  103. procedure TTabControlHelper.TimerOnTimer(Sender: TObject);
  104. var
  105.   Ist: Boolean;
  106.   i: Integer;
  107. begin
  108.   Ist := False;

  110.   for i := 0 to TabCount - 1 do
  111.     if (Tabs[i] = GRemoveTab) then begin
  112.       Ist := True;
  113.       Break;
  114.     end;

  116.   if (Ist) then
  117.     Exit;

  119.   GRemoveTimer.DisposeOf;
  120.   GRemoveTImer := nil;
  121.   GRemoveTab := nil;

  123.   TabIndex := GIndex;
  124. end;

  126. end.
復(fù)制代碼

然后在主程序上進(jìn)行調(diào)用
  1. unit Unit1;

  3. interface

  5. uses
  6.   System.SysUtils
  7.   , System.Types
  8.   , System.Classes
  9.   , System.Generics.Collections
  10.   , FMX.Types
  11.   , FMX.Controls
  12.   , FMX.Graphics
  13.   , FMX.Forms
  14.   , FMX.StdCtrls
  15.   , FMX.TabControl
  16.   ;

  18. type
  19.   TForm1 = class(TForm)
  20.     StyleBook1: TStyleBook;
  21.     TabControl1: TTabControl;
  22.     TabItem1: TTabItem;
  23.     TabItem2: TTabItem;
  24.     TabItem3: TTabItem;
  25.     procedure FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
  26.   private
  27.   public
  28.   end;

  30. var
  31.   Form1: TForm1;

  33. implementation

  35. uses
  36.   uFMXTabItemWithCloseBtn;

  38. {$R *.fmx}

  40. procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas;
  41.   const ARect: TRectF);
  42. begin
  43.   TabControl1.CheckCloseBtn;
  44. end;

  46. end.

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花（0）

    0條評(píng)論

    發(fā)表

    請遵守用戶 評(píng)論公約

    類似文章 更多