Перемещение на страницу TabSet по имени
Материал из DRKB
Перемещение на страницу 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 соответствующая закладка будет выведена на передний план.
Source: http://delphiworld.narod.ru/
ID: 01182