如何取得鼠標在richedit 的哪一行 第幾個字 謝謝各位 .. . . . 還有個問題. . procedure TForm1.updatetitle; var title , temp : string; i : integer; begin i := length(docname); if i=0 then title := 'Untitled' else begin while docname[i] <> '\' do begin temp := temp docname[i]; i := i-1; end; i := length(temp) 1; while i > 0 do begin i := i-1; title := title temp[i]; end; end; caption := title ; caption := caption ' - Shine''s Notepad By 12a05 Hoi Hoi Po'; end; 這樣子無論我一開始的if 是 true or false caption 都會等於 title ' - Shine''s Notepad By 12a05 Hoi Hoi Po' 但是如果我把最後那兩行合併. . . 變成 caption := title ' - Shine''s Notepad By 12a05 Hoi Hoi Po'; 就不同了... 當我一開始的if 是 true , caption = title ' - Shine''s Notepad By 12a05 Hoi Hoi Po'; 當 if 是 false , caption = title; 為什麼會這樣子呢 . . ?? 謝謝各位大哥大姐!! http://www.mezone.net

獲取位置(RichEdit或Memo中)：

function RichRow(m: TCustomMemo): Longint;
begin
  Result := SendMessage(m.Handle, EM_LINEFROMCHAR, m.SelStart, 0);
end;    function RichCol(m: TCustomMemo): Longint;
begin
  Result := m.SelStart - SendMessage(m.Handle, EM_LINEINDEX, SendMessage(m.Handle,
    EM_LINEFROMCHAR, m.SelStart, 0), 0);
end;    procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  caption := Format('%d : %d', [RichCol(Form1.Memo1), RichRow(Form1.Memo1)]);
end;    procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Caption := Format('%d : %d', [RichCol(Form1.richedit1), RichRow(Form1.richedit1)]);
end;    // Or use CaretPos to determine the cursor's coordinates:    procedure TForm1.Button1Click(Sender: TObject);
begin
  with RichEdit1.CaretPos do
    Label1.Caption := Format('(%d, %d)',[X 1,Y 1])
end;

---------------------------- 於Delphi K.Top之上 博采眾家之長, 奉獻綿薄之力 ---------------------------

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

第二個問題：

procedure TForm1.UpdateTitle(docname: string);
var
  title: string;
begin
  if length(docname) = 0 then title := 'Untitled'
  else title := StringReplace(docname, '\', '', [rfReplaceAll]);      caption := title;
  caption := caption   ' - Shine''s Notepad By 12a05 Hoi Hoi Po';
end;

---------------------------- 於Delphi K.Top之上 博采眾家之長, 奉獻綿薄之力 --------------------------- 發表人 - h@visli 於 2005/09/29 13:31:49

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