請問:     如何控制edit元件內的游標，按enter，可以照我要的順序跳呢?是不是改tab order的順序，可是我有改，還是無法照我的設計走    程式碼如下:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var x, y: Integer;
    t: TEdit;
begin
    if key = #13 then begin
        y := 1;
        for x := 0 to Componentcount - 1 do begin
            if (Components[x] is TEdit) then
               if TEdit(Components[x]).Focused then y := x   1;
        end;
              if y = componentcount then y := y   1;
           TEdit(Components[y]).SetFocus;
        end;
end;

按照 TabOrder 順序 改用 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then Perform(WM_NEXTDLGCTL,0,0); end;

引言: 按照 TabOrder 順序 改用 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#13 then Perform(WM_NEXTDLGCTL,0,0); end;

站上有大大寫了一個TdosMove 不錯用。 大大可以下載議試看 ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎
藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475

check一下你的form.KeyPreview是否設為True,如果false,就收不到Key了

太神奇了! 高手可否解說一下 Perform(WM_NEXTDLGCTL,0,0)此寫法是如何找尋出來的?? ps:謝謝其它大大的回應

引言: 太神奇了! 高手可否解說一下 Perform(WM_NEXTDLGCTL,0,0)此寫法是如何找尋出來的?? ps:謝謝其它大大的回應

我再作一點補充： Perform(WM_NEXTDLGCTL,1,0); 表示往上移。就是依照TabOrder 次序由大至小。 事實上，Windows 系統本身就是訊息類的系統。 您也可以直接用 SendMessage(Handle,WM_NEXTDLGCTL,0,0); 比如： SendMessage(Handle,WM_SYSCOMMAND,SC_TASKLIST,0); 就是開啟 -->系統「開始」功能選單 發表人 - wameng 於 2004/10/22 19:33:35