我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
RT
T
tseug
Unregistered / Unconfirmed
GUEST, unregistred user!
How to click-and-select a line in TMemo<br>From Zarko Gajic,<br>Your Guide to Delphi Programming.<br>FREE Newsletter. Sign Up Now!<br>Here's how to select a row (line) of text in a TMemo control by clicking on it: <br><br>Note
rop a TMemo (Memo1) on a form and call the "SelectMemoLine" procedure from Memo's OnClick event:<br>~~~~~~~~~~~~~~~~~~~~~~~~~<br>procedure SelectMemoLine(Memo : TCustomMemo) ;<br>var<br> Line : integer;<br>begin<br> with Memo do<br> begin<br> Line := Perform(EM_LINEFROMCHAR, SelStart, 0) ;<br> SelStart := Perform(EM_LINEINDEX, Line, 0) ;<br> SelLength := Length(Lines[Line]) ;<br> end;<br>end;<br><br>//Usage: <br>procedure TForm1.Memo1Click(Sender: TObject) ;<br>begin<br> SelectMemoLine(Memo1) ;<br>end;
rop a TMemo (Memo1) on a form and call the "SelectMemoLine" procedure from Memo's OnClick event:<br>~~~~~~~~~~~~~~~~~~~~~~~~~<br>procedure SelectMemoLine(Memo : TCustomMemo) ;<br>var<br> Line : integer;<br>begin<br> with Memo do<br> begin<br> Line := Perform(EM_LINEFROMCHAR, SelStart, 0) ;<br> SelStart := Perform(EM_LINEINDEX, Line, 0) ;<br> SelLength := Length(Lines[Line]) ;<br> end;<br>end;<br><br>//Usage: <br>procedure TForm1.Memo1Click(Sender: TObject) ;<br>begin<br> SelectMemoLine(Memo1) ;<br>end;
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
试了，完全成功，这段代码写得很精炼，多谢了，分两天以内送上。
D
delhpi
Unregistered / Unconfirmed
GUEST, unregistred user!
看看人家的注册时间就知道了
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
此段代码应该是老外写的
D
delhpi
Unregistered / Unconfirmed
GUEST, unregistred user!
程序员需要的代码不一定，也很难做到都是自己写的，但只要能拥有或者找到自己需要的代码就行了。哈哈。
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
不错，爱因斯坦也记不住公式，要用的时候现翻，但是人家知道在哪有。<br>不像我们国家的教育，必须背公式，整个方法就是不好的。
我
我爱PASCAL
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。