1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
unit IpHtmlTabList;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
{ TIpHtmlTabList }
TIpHtmlTabList = class(TFPList)
private
FIndex: Integer;
function GetTabItem: TObject;
public
constructor Create;
property Index: Integer read FIndex write FIndex;
property TabItem: TObject read GetTabItem;
end;
implementation
{ TIpHtmlTabList }
function TIpHtmlTabList.GetTabItem: TObject;
begin
if (FIndex = -1) or (FIndex >= Count) then
Exit(nil)
else
Result := TObject(Items[FIndex]);
end;
constructor TIpHtmlTabList.Create;
begin
Inherited Create;
FIndex:=-1;
end;
end.
|
