Hi all, I knew that there is focusing order between component in a form. 1. How can I get this focusing order list in runtime? 2. Besides getting the focus for a component using setFocus(), how can I pass the active focus to the next focusable component? Thanks for any reply. Mark Leung

1. TWinControl.GetTabOrderList 2. message WM_NEXTDLGCTL    http://pywong.hk.st http://www.lazybones.ca

William, Can you make a simple example to show this? Thanks. Mark Leung

Hi marker,    Sorry to interrupt you. Please reference http://www.web-one.org/new-6551623-4938.html 1.

procedure TForm1.Button1Click(Sender: TObject);
var
  TOL : TList;
  I : Integer;
  Tmp : TWinControl;
begin
  TOL := TList.Create;
  Memo1.Lines.Clear;
  try
    Self.GetTabOrderList(TOL);
    for i := 0 to TOL.Count - 1 do
      begin
        Tmp := TOL.Items[i];
        Memo1.Lines.Add(Tmp.Name);
      end;
  finally
    TOL.Free;
  end;
end;

2.Set Form.KeyPreview to True and add below programs to From.OnKeyPress

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      self.Perform(WM_NEXTDLGCTL, 0, 0);
      Key := #0;
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman