Разместите компоненты Tabset(TabSet1) и Edit (Edit1) на вашей форме. Измените свойство компонента Tabset Tabs для размещения в списке строк следующих четерых закладок:
Hello
World
Of
Delphi
Создайте обработчик события onChange компонента Edit1 как показано ниже:
|
Code: |
|
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 соотвутствующая закладка будет выведена на передний план.
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!