Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Синхронизация TTabSet c TListBox

01.01.2007
Что-то аналогичное я делал раньше, тем не менее, вместо Listbox я использовал dbGrid со следующими опциями:

[dgAlwaysShowEditor,dgTabs,dgRowSelect,dgAlwaysShowSelection,dgConfirmDelete, dgCancelOnExit]

Кроме того, я привел код, который я использовал в ответ на щелчок на закладке, таким образом изменяя запись в dbgrid.

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
 
var AllowChange: Boolean);
begin
  Table1
.FindNearest([Chr(NewTab+65)]);
  Table2
.FindNearest([Chr(NewTab+65)]);
end;
 
procedure TForm1
.TabSet1Click(Sender: TObject);
var
  I
: integer;
begin
 
with TabSet1 do
 
begin
   
if TabIndex > -1 then
   
begin
     
with ListBox1 do
     
begin
       
for I := 0 to Items.Count - 1 do
       
begin
         
if Pos(Tabs[TabIndex], Items[I]) = 1 then
         
begin
           
ItemIndex := I;
           
break;
         
end;
       
end;
     
end;
   
end;
 
end;
end;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0