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

 

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

 

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

Code:

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;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить