Перемещение на страницу 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