var
iLine,iCount:integer;
begin
iCount := Richedit1.Perform(EM_GETLINECOUNT,0,0);
iLine := Richedit1.Perform( EM_LINEFROMCHAR,RichEdit1.SelStart,0);
//光标位置
if (iLine+1)=iCount then showmessage('苦海无涯,回头是岸');
end;
iLine,iCount:integer;
begin
iCount := Richedit1.Perform(EM_GETLINECOUNT,0,0);
iLine := Richedit1.Perform( EM_LINEFROMCHAR,RichEdit1.SelStart,0);
//光标位置
if (iLine+1)=iCount then showmessage('苦海无涯,回头是岸');
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货