Pascal and Delphi

Enter to tab

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Feb 2007

Posts: 53

Reputation: edouard89 is an unknown quantity at this point

Solved Threads: 2

edouard89

Offline

Junior Poster in Training

Enter to tab

Mar 1st, 2007

First of I would like to say hi to everyone as I am new to this forum.

My problem is this. Can I some how use the [ENTER] key instead of the [TAB] key to skip from field to field? Any help would be greatly apreciated.

Thank you.

•

Join Date: Dec 2006

Posts: 171

Reputation: radu84 is an unknown quantity at this point

Solved Threads: 16

radu84

Offline

Junior Poster

Re: Enter to tab

Mar 2nd, 2007

place this code in the first edit onkeydown event

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
13:edit2.SetFocus;
end;
end;

best regards,

•

Join Date: Nov 2006

Posts: 436

Reputation: JerryShaw is on a distinguished road

Solved Threads: 72

JerryShaw

Offline

Posting Pro in Training

Re: Enter to tab

Mar 4th, 2007

Another way of trapping the Enter key is by using the form's KeyPreview property set to true. Then on the Form's onKeyPress event do this:

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
  i:integer;
  tbOrder:Integer;
  nextComponent: TComponent;
 
  function getControlForNextTabOrder: TComponent;
  var iThisTab:Integer;
      n:Integer;
  begin
    result := nil;
    iThistab := ActiveControl.TabOrder;
    for n := 0 to ComponentCount -1 do
      if TWinControl(Components[n]).TabOrder = iThisTab +1 then
      begin
        result := Components[n];
        break;
      end;
  end;
begin
 if Key = #13 then
 begin
   nextComponent := getControlForNextTabOrder();
   if (nextComponent <> nil) then
   begin
     ActiveControl := TWinControl(nextComponent);
     Key := #0; // prevent Key from propogating any further
   end;
 end;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
  i:integer;
  tbOrder:Integer;
  nextComponent: TComponent;
 
  function getControlForNextTabOrder: TComponent;
  var iThisTab:Integer;
      n:Integer;
  begin
    result := nil;
    iThistab := ActiveControl.TabOrder;
    for n := 0 to ComponentCount -1 do
      if TWinControl(Components[n]).TabOrder = iThisTab +1 then
      begin
        result := Components[n];
        break;
      end;
  end;
begin
 if Key = #13 then
 begin
   nextComponent := getControlForNextTabOrder();
   if (nextComponent <> nil) then
   begin
     ActiveControl := TWinControl(nextComponent);
     Key := #0; // prevent Key from propogating any further
   end;
 end;
end;

Be aware that TButtons and such will not throw this event handler. So the focus can not move to the next control when this type of component has focus. Memo boxes will get focus, but you have to use Shift+Enter for new lines in the memo. You can obviously curcumvent some of this behavior in the onKeyPress event, by examining the currently ActiveControl type or name.

This example obeys the TabOrder, and prevents you from writing a KeyPress event handler for each control that you want this behaviour.

--Jerry