來源:互聯網網民 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。
订阅
