Delphi 1
Перемещение на страницу Tabset по имени
Разместите компоненты Tabset(TabSet1) и Edit (Edit1) на вашей форме. Измените свойство компонента Tabset Tabs для размещения в списке строк следующих четерых закладок:
- Hello
- World
- Of
- Delphi
procedure TForm1.Edit1Change(Sender: TObject); var I : Integer;
beginfor I:= 0 to tabset1.tabs.count-1 do
if edit1.text = tabset1.tabs[I] then
tabset1.tabindex:=I;
end;
|
Теперь при наборе любого из существующих имен в edit1 соотвутствующая закладка будет выведена на передний план. [000537]