如何得到TEdit裡頭，游標所處位置的值？

發文回覆瀏覽次數：1054

推到 Plurk!

推到 Facebook!

如何得到TEdit裡頭，游標所處位置的值？

答題得分者是：RaynorPao

rockmax
一般會員

發表：24
回覆：12
積分：7
註冊：2003-02-20

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-08-10 20:21:34

IP:61.223.xxx.xxx 未訂閱

我現在的TEdit裡頭，有數字9999.9，利用setfocus()及SelStart的配合，我可以使TEdit裡頭的游標，搭配兩個Button元件，使游標於這些數字間左右移動，請問，現在我的游標若在第二個9的位置後面，我現在想再利用兩個TButton，使游標前的數字，能做0～9的變動，可否告訴要怎麼辦？我是覺得，還差兩個指令，我覺得就應該可以了吧！有人可以告訴我們，謝謝。

RaynorPao
版主

發表：139
回覆：3622
積分：7025
註冊：2002-08-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-08-10 22:24:03

IP:61.221.xxx.xxx 未訂閱

引言: 我現在的TEdit裡頭，有數字9999.9，利用setfocus()及SelStart的配合，我可以使TEdit裡頭的游標，搭配兩個Button元件，使游標於這些數字間左右移動，請問，現在我的游標若在第二個9的位置後面，我現在想再利用兩個TButton，使游標前的數字，能做0～9的變動，可否告訴要怎麼辦？我是覺得，還差兩個指令，我覺得就應該可以了吧！有人可以告訴我們，謝謝。

rockmax 你好: 請問?? 你所說的功能，是像以下這個樣子嗎?? < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { int i=Edit1->SelStart; if(Edit1->SelStart>0 && Edit1->Text[Edit1->SelStart]!='.') { int j=StrToInt(Edit1->Text.SubString(Edit1->SelStart, 1)); j ; if(j>9) j=9; Edit1->Text=Edit1->Text.SubString(1, i-1) IntToStr(j) Edit1->Text.SubString(Edit1->SelStart 1, Edit1->Text.Length()-Edit1->SelStart); } Edit1->SetFocus(); Edit1->SelStart=i; } void __fastcall TForm1::Button2Click(TObject *Sender) { int i=Edit1->SelStart; if(Edit1->SelStart>0 && Edit1->Text[Edit1->SelStart]!='.') { int j=StrToInt(Edit1->Text.SubString(Edit1->SelStart, 1)); j--; if(j<0) j=0; Edit1->Text=Edit1->Text.SubString(1, i-1) IntToStr(j) Edit1->Text.SubString(Edit1->SelStart 1, Edit1->Text.Length()-Edit1->SelStart); } Edit1->SetFocus(); Edit1->SelStart=i; } -- Enjoy Researching & Developing --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

系統時間：2024-04-29 13:14:05

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

本站聲明

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