Jump to content

Recommended Posts

Posted

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;

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...