Solved

Change TabOrder of Objects

Posted on 2006-07-15
1
320 Views
Last Modified: 2010-04-05
hi
i have a problem with TabOrder ,
i wanna move on my objects when i enter ENTER key , but i didn't find any way .
i wrote this codes but it doesn't do any thing

procedure TF_Registry.E_Family_NoKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then TabOrder := TabOrder + 1;
end;

what i must do ?

tanxfull
Mahsa
0
Comment
Question by:Mahsa60
1 Comment
 
LVL 26

Accepted Solution

by:
Russell Libby earned 50 total points
ID: 17116623

If you are looking to move focus on the enter key, the the following code can be used to move focus to the control that is next in the tab order.

Regards,
Russell

  if (Key = #13) then
  begin
     Key:=#0;
     Screen.ActiveForm.Perform(WM_NEXTDLGCTL, 0, 0);
  end;


0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Suggested Solutions

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

707 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now