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