| 導購 | 订阅 | 在线投稿
分享
 
 
 

如何取得Memo的行和列

來源:互聯網網民  2008-06-01 01:54:58  評論

新建一個應用,在窗體Form1上添加兩個Tlabel組件名爲Label1,Label2;

添加兩個Tbutton組件名爲Button1,Button2;添加一個Tmemo組件名爲Memo1。

然後在代碼編輯器中添加以下代碼。

void __fastcall TForm1::Button1Click(Tobject *Sender)

{

Label1→Caption=SendMessage(Memo1→Handle,EM_LINEFROMCHAR,-1,0)+1;

}

void __fastcall TForm1::Button2Click(Tobject *Sender)

{

Label2→Caption=Memo1→SelStart-SendMessage(Memo1→Handle,EM_LINEINDEX,-1,0)+1;

}

這種方法同樣適用于RichEdit。

 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
  新建一個應用,在窗體Form1上添加兩個Tlabel組件名爲Label1,Label2; 添加兩個Tbutton組件名爲Button1,Button2;添加一個Tmemo組件名爲Memo1。 然後在代碼編輯器中添加以下代碼。    void __fastcall TForm1::Button1Click(Tobject *Sender)    {    Label1→Caption=SendMessage(Memo1→Handle,EM_LINEFROMCHAR,-1,0)+1;    }    void __fastcall TForm1::Button2Click(Tobject *Sender)    {    Label2→Caption=Memo1→SelStart-SendMessage(Memo1→Handle,EM_LINEINDEX,-1,0)+1;    }    這種方法同樣適用于RichEdit。
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 
 熱帖排行
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有