Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.


Welcome, Guest
Guest Settings
Help

Thread: IWTabControl Tab Names


This question is answered. Helpful answers available: 2. Correct answers available: 1.


Permlink Replies: 2 - Last Post: Jan 23, 2016 1:56 PM Last Post By: Randall Carpenter
Randall Carpenter

Posts: 26
Registered: 1/5/09
IWTabControl Tab Names  
Click to report abuse...   Click to reply to this thread Reply
  Posted: Jan 17, 2016 7:21 AM
Is there a way to cycle through an IWTabControl and determine it's tab names?

Any insight will be appreciated.

Thanks,
Randall H. Carpenter
Daniel Fields

Posts: 622
Registered: 11/29/04
Re: IWTabControl Tab Names  
Click to report abuse...   Click to reply to this thread Reply
  Posted: Jan 17, 2016 12:17 PM   in response to: Randall Carpenter in response to: Randall Carpenter
I dropped a TabControl on the form, and added three pages. I added a button, and placed a label below it. Here is the code to cycle through the tabs.

procedure TFormHome.IWButton1Click(Sender: TObject);
var p : integer;
    msg : string;
begin
  msg := '';
  for p := 0 to IWTabControl1.Pages.Count-1 do
    msg := msg+TIWTabPage(IWTabControl1.Pages[p]).Title+#13+#10;
  IWLabel1.Caption := msg;
end;
Randall Carpenter

Posts: 26
Registered: 1/5/09
Re: IWTabControl Tab Names  
Click to report abuse...   Click to reply to this thread Reply
  Posted: Jan 23, 2016 1:56 PM   in response to: Daniel Fields in response to: Daniel Fields
Daniel Fields wrote:
I dropped a TabControl on the form, and added three pages. I added a button, and placed a label below it. Here is the code to cycle through the tabs.

procedure TFormHome.IWButton1Click(Sender: TObject);
var p : integer;
    msg : string;
begin
  msg := '';
  for p := 0 to IWTabControl1.Pages.Count-1 do
    msg := msg+TIWTabPage(IWTabControl1.Pages[p]).Title+#13+#10;
  IWLabel1.Caption := msg;
end;

Thank you for your help.

Randall H. Carpenter
Legend
Helpful Answer (5 pts)
Correct Answer (10 pts)

Server Response from: ETNAJIVE02