2014年1月13日
delphi 获得memo，Richedit焦点所在行
摘要： procedure TForm1.Button1Click(Sender: TObject);var i:Integer;begin i:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,0)+1; ShowMessage(IntToStr(i));end; 阅读全文
posted @ 2014-01-13 17:32 孤舟残月浅笑嫣然 阅读(332) 评论(0) 推荐(0)
delphi 代码编辑器和查看器的注释部分的源码
该文被密码保护。 阅读全文
posted @ 2014-01-13 16:48 孤舟残月浅笑嫣然 阅读(4) 评论(0) 推荐(0)