我有兩個 groupbox 每個groupbox中 各有五個edit 我想要在第一個group中的輸入完第三個edit(不管剩下兩個未輸入資料的edit) 按下enter 後 指標跳到 另一個group中排在第一個的edit 請教各位大大 要怎麼做比較好ㄋㄟ

An easy way is to do it in the OnKeyPress event:

if Key=#13 then begin
    Edit1.SetFocus;
    Key := #0;
end;

沒有辦法..這樣做無法達到預期效果 這樣好像指標永遠定位edit1 其實我是想要直接跳到 第二個groupbox中的第一個edit 假如我有粉多的groupbox中有各有粉多edit 要怎麼辦？ procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var i,j:integer; const Nameedit ='Edit6'; begin if (length(trim(tedit(sender).text)) = 1) then begin j:=1; for i := 0 to componentcount-1 do begin if (components[i] is tedit) then if tedit(components[i]).focused then j:=i 1; end; if j=componentcount then j:=j-1; button1.Caption:=inttostr(tedit(sender).taborder); tedit(components[j]).setfocus; end; if key=#13 then //這邊就搞糊塗了 不知道怎麼寫 begin with TEdit(FindComponent(nameedit)) do begin setfocus; end; end; end;

引言: 沒有辦法..這樣做無法達到預期效果 這樣好像指標永遠定位edit1 其實我是想要直接跳到 第二個groupbox中的第一個edit 假如我有粉多的groupbox中有各有粉多edit 要怎麼辦？

Just a stupid idea: Can you make use of the "Tag" property (e.g. store the tab order, etc.) since every component has this property.

只要如下 Groupbox1.Setfocus; //set focus在groupbox上 Perform(WM_NEXTDLGCTL, 0, 0); //在gropubox中移至下一control

那請問 那如果要在edit中移回上一個control 語法要怎麼下？

引言: 那請問 那如果要在edit中移回上一個control 語法要怎麼下？

Perform(WM_NEXTDLGCTL, 1, 0);