Ulugbek Posted August 27, 2013 Posted August 27, 2013 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; Quote
Sherzod Posted August 27, 2013 Posted August 27, 2013 Hi Ulugbek. Try ShowMessage(maintab.Tabs[maintab.TabIndex]); sincerely Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.