Перемещение на страницу TabSet по имени

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

Разместите компоненты Tabset(TabSet1) и Edit (Edit1) на вашей форме. Измените свойство компонента Tabset Tabs для размещения в списке строк следующих четерых закладок:

• Hello
• World
• Of
• Delphi

Создайте обработчик события onChange компонента Edit1 как показано ниже:

procedure TForm1.Edit1Change(Sender: TObject);
var
  I: Integer;
begin
  for  I:= 0 to tabset1.tabs.count-1 do
    if  edit1.text = tabset1.tabs[I] then
      tabset1.tabindex:=I;
end;

Теперь при наборе любого из существующих имен в edit1 соотвутствующая закладка будет выведена на передний план.

Перевод:

Код предназначен для перемещения компонента TabSet (TabSet1) на конкретную вкладку, когда текст в компоненте Edit1 соответствует одному из имен вкладок.

Распределение кода:

1. Процедура Edit1Change вызывается каждый раз, когда изменяется текст в компоненте Edit1.
2. Процедура использует цикл for, чтобы перебрать каждую вкладку в компоненте TabSet1.
3. Для каждой вкладки она проверяет, соответствует ли текст в компоненте Edit1 имени текущей вкладки.
4. Если найден совпадение, она устанавливает свойство TabIndex компонента TabSet1 на индекс соответствующей вкладки.

Это означает, что при вводе одного из имен вкладок в компоненте Edit1 (например, "Hello", "World" и т.д.) соответствующая вкладка будет выбрана и перемещена на передний план.

Предлагается альтернативное решение:

Вместо перебора каждой вкладки и проверки совпадений можно использовать метод IndexOf типа TStringList, чтобы найти индекс соответствующей вкладки. Этоapproach более эффективен и легче для чтения:

procedure TForm1.Edit1Change( Sender: TObject );
begin
  TabSet1.TabIndex := TStringList(TabSet1.Tabs).IndexOf(Edit1.Text);
end;

Этот код делает то же самое, что и оригинальное реализация, но в более компактной и читаемой форме.

Перемещение на страницу TabSet по имени позволяет задать обработчик события onChange для компонента Edit, чтобы при вводе любого из существующих имен в поле текста соответствующая закладка в панели TabSet отображалась на переднем плане.

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

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