Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

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

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

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

Разместите компоненты 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 отображалась на переднем плане.


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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




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


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


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-08-19 13:29:56
2024-11-02 20:41:14/0.01271390914917/1