Что-то аналогичное я делал раньше, тем не менее, вместо 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; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!