Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 239
  • Last Modified:

Alt+Tab between TTabSheets

Hi guys,

I have 4 tabsheets lets say and I want to walk through them with Alt+Tab (Just Like Windows).
For example I first clicked on tabsheet 2 then 3 then 4. when I press Alt+Tab I want to go to 3 and if i press alt+tab again i want to goto 4.



Anyone knows anything?
0
bilgehanyildirim
Asked:
bilgehanyildirim
1 Solution
 
Lee_NoverCommented:
just like windows ?
you're thinking about Ctrl+Tab and not Alt+Tab !
Ctrl+Tab works just fine
0
 
bilgehanyildirimAuthor Commented:
It goes in a row. I want to go back and forward. there are loads of copy/paste job to do from one TS to other one.
0
 
pritaeasSoftware EngineerCommented:
Ctrl+Tab goes forward, Ctrl+Shift+Tab goes backward.

But you can always use shortcuts to go directly to a specific tab. E.g. you have a submenu containing your various tabsheets, then you can easily add a shortcut for each menu-item (Ctrl+1, Ctrl+2 and so on).

You can also use an ActionList, where each action sets a specific tabsheet. Then also set a shortcut for each action.

hth, pritaeas
0
 
bilgehanyildirimAuthor Commented:
I haven't use actionllist before. could you please give an example. for example lets say when I press Ctrl+Q TS 1 will be activated and when I press Ctrl+Q again TS 2 will be activated and so on..
0
 
ceoworksCommented:
Hi Bilgehan,

All you need to do is :

- Put an TActionList control(on Delphi's Standard tab) on your form
- Double click on your action list. Then ActionList editor will appear
- Add a new action from this editor
- When your new action is selected, from the object inspector define a name for this action and then select a ShortCut for this. I selected Ctrl+Q as you preferred.
- Then double click on your new action item and then put your code into that new action's OnExecute event :

  procedure TForm1.NextTabExecute(Sender: TObject);
  begin
    PageControl1.TabIndex := PageControl1.TabIndex + 1; // TabIndex shows the current active TabSheet at that time..
  end;

That's all.

Cheers,

Oktay Sancak
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now