How get text from UniTabcontrol?

[Ulugbek]

fill like this

 q:=TMyQuery.Create(Self);
  try
    q.Connection:=UniMainModule.mycon;
    q.Close;
    q.SQL.Clear;
    q.SQL.Text:='select id,name_point from points where is_active<>0 order by id';
    q.Prepare;
    q.open;
    maintab.Tabs.Clear;
    i:=0;
    while not q.Eof do
      begin
         maintab.Tabs.Insert(i,q.FieldByName('name_point').AsString);
        Inc(i);
        q.Next;
      end;
  finally
    q.Free;
  end;

Not work

procedure THomeFrame.maintabChange(Sender: TObject);
begin
  ShowMessage(maintab.Tabs.ValueFromIndex[maintab.TabIndex]);
end;

[Sherzod]

Hi Ulugbek.

 

Try

ShowMessage(maintab.Tabs[maintab.TabIndex]);

sincerely

[Ulugbek]

10x work