Перемещение на страницу TabSet по имени
Falk0ner, вс, 06/07/2008 - 15:34.
Перемещение на страницу 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 соотвутствующая закладка будет выведена на передний план.
http://delphiworld.narod.ru/
DelphiWorld 6.0var
I: Integer;
begin
for I:= 0 to tabset1.tabs.count-1 do
if edit1.text = tabset1.tabs[I] then
tabset1.tabindex:=I;
end;
Отправить комментарий