Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Компоненты и Классы , Вкладки и Страницы

Синхронизация 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;

Статья Синхронизация TabSet c ListBox раздела Компоненты и Классы Вкладки и Страницы может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Вкладки и Страницы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.03.2024 12:15:29/0.036073923110962/2