我想模擬終端機上的一個功能： 按Enter後清除所在游標位置以後之字元，並跳下一個，我目前只想到下面的作法，但我無法求知目前游標所在的位置，不知各位前輩有沒有更好的方法呢? procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin //模擬按Enter鍵, 焦點後移 if Key = #13 then begin (ActiveControl as TEdit).Text:= copy((ActiveControl as TEdit).Text,1, ?? ); end; key := #0; Perform(WM_NextDlgCtl, 0, 0); end;

hi, 使用 SelStart 即可取得現有的游標位置.    

   (ActiveControl as TEdit).Text:= copy((ActiveControl as TEdit).Text,1, (ActiveControl as TEdit).SelStart );

發表人 - timhuang 於 2003/10/31 16:19:27

真的非常感謝您，問題解決了!!! 但不知我這樣的寫法是否是正統的寫法呢? 新手發問請見諒!!!    

引言: hi, 使用 SelStart 即可取得現有的游標位置.

   (ActiveControl as TEdit).Text:= 
      copy((ActiveControl as TEdit).Text,1, (ActiveControl as TEdit).SelStart );

發表人 - timhuang 於 2003/10/31 16:19:27

其實沒有什麼正不正統的寫法, 只要能解決問題, 就是好的寫法!! 有一個要注意的地方, 就是因為你是使用 form preview 的 keypress event, 所以有可能不是在 edit 元件上按下 enter, 若是這樣的話, 你可能要多判斷一下產生該 event 的元件是不是 edit 元件, 語法如下:    

if ActiveControl is TEdit then
begin
  xxx
end;