如何在TEdit組件中指定鼠標指針的位置？

發文回覆瀏覽次數：1199

推到 Plurk!

推到 Facebook!

如何在TEdit組件中指定鼠標指針的位置？

答題得分者是：cxg

h@visli
資深會員

發表：103
回覆：429
積分：431
註冊：2004-02-13

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-07-19 12:15:01

IP:222.248.xxx.xxx 未訂閱

請看下面的代碼：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Edit1.Text = '') and (key = #42) then  //#24代表"*"號
   edit1.Text := 'JS,0000000000,#';
end;    end.

我希望當用戶在Edit中輸入"*"號時，自動在後面追加上"JS,0000000000,#"字串，并且自動將光標定位到",#"之間，即如下圖：

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

cxg
中階會員

發表：116
回覆：192
積分：76
註冊：2004-02-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-07-19 12:37:48

IP:222.35.xxx.xxx 未訂閱

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if (Edit1.Text = '') and (key = #42) then //#24代表"*"號 BEGIN edit1.Text := 'JS,0000000000,#'; EDIT1.SELSTART := 14; END; end;

系統時間：2024-07-02 13:43:03

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！