Skip to content

Latest commit

 

History

History
12 lines (11 loc) · 458 Bytes

sample_create.md

File metadata and controls

12 lines (11 loc) · 458 Bytes

Sample code which creates control with two tabs:

t:= TATTabs.Create(Self);
t.Parent:= Self;
t.Align:= alTop;                                   
//optional event handlers
t.OnTabClick:=     {$ifdef FPC}@{$endif} TabClick; 
t.OnTabPlusClick:= {$ifdef FPC}@{$endif} TabPlusClick;
t.OnTabClose:=     {$ifdef FPC}@{$endif} TabClose;
//add tabs
t.AddTab(-1, 'Tab one');
t.AddTab(-1, 'Tab middle len', nil, false, clGreen);