Синхронизация TabSet c ListBox

Что-то аналогичное я делал раньше, тем не менее, вместо 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;

Недавно добавленные исходники
• 3D Designer 98 • Sik Screen Capture 78 • Patch Maker 70 • Айболит (remote control) 89 • ListBox Drag & Drop 69 • Доска для игры Реверси 1 166 • Графические эффекты 79 • Рисование по маске 59 • Перетаскивание изображений 63 • Canvas Drawing 64 • Рисование Луны 141 • Поворот изображения 49 • Рисование стержней 42 • Paint on Shape 40 • Генератор кроссвордов 51 • Головоломка Paletto 58 • Теорема Монжа об окружностях 104 • Пазл Numbrix 48 • Заборы и коммивояжеры 72 • Игра HIP 55 • Игра Go (Го) 45 • Симулятор лифта 47 • Программа укладки плитки 49 • Генератор лабиринта 90 • Проверка числового ввода 41 • HEX View 94 • Физический маятник 97 • Задача коммивояжера 123 • Автомобильная пробка 47 • Квадратные сетки из слов 41

Синхронизация TabSet c ListBox

Похожие по теме исходники