[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    Moving to a page by name on a TabSet.

    Place a Tabset(TabSet1) and an Edit (Edit1) on
    your form. Change the Tabset's Tabs Property in
    the String List Editor to include 4 Tabs:
                 Hello,
                 World,
                 Of,
                 Delphi,

    Change Edit1's onChange event to:

    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;

    If You type any of the Tabs names in edit1 it
    will focus on the appropriate tab.

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]