關於 文字編輯器 |
|
尚未結案
|
|
kilo_amd
一般會員   發表：15 回覆：13 積分：10 註冊：2003-01-24 發送簡訊給我 |
|
|
yachanga
資深會員  發表：24 回覆：335 積分：296 註冊：2003-09-27 發送簡訊給我 |
|
|
kilo_amd
一般會員 發表：15 回覆：13 積分：10 註冊：2003-01-24 發送簡訊給我 |
|
|
yachanga
資深會員 發表：24 回覆：335 積分：296 註冊：2003-09-27 發送簡訊給我 |
Hi kilo_amd
Delphi 內建是沒有這個功能的 試試看用這篇的觀念http://delphi.ktop.com.tw/topic.php?topic_id=37724 小弟能想到比較簡單的是用Tlabel 來記錄目前的行號
不知道可否符合您的需求 label1.Caption:='Line:1'; procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
CurrentLine:Integer;
begin
if (key=VK_RETURN) then
begin
CurrentLine:=RichEdit1.Perform(em_LineFromChar,255,0)+2;
label1.caption:='Line:'+IntToStr(CurrentLine);
end;
if (key=VK_BACK) and (label1.Caption<>'Line:1')
then
begin
CurrentLine:=RichEdit1.Perform(em_LineFromChar,255,0);
label1.caption:='Line:'+IntToStr(CurrentLine);
end;
end; ~悠遊法國號~
|
發表時間：2004-04-03 00:32:17
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-11-25 8:45:13
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |