请教怎么把Memo中的光标定位到首行首列
请问如何把Memo中的光标定位到首行首列啊
用Memo的onkeydown事件里，用回车提交了memo里的字符串，clear之后，发现光标停留在第二行首列，请问如何让光标回到首行首列啊
------解决方案--------------------
用Memo的onkeydown事件里，用回车提交了memo里的字符串，clear之后，发现光标停留在第二行首列，请问如何让光标回到首行首列啊
------解决方案--------------------
本帖最后由 ccrun 于 2013-01-20 11:44:59 编辑
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Memo1->Lines->Text.Trim().Length() < 1)
{
Application->MessageBoxA("请输入内容后再发送信息！", NULL, MB_OK + 16);
}
else
{
// Send(Memo2->Lines->Text);
Memo1->Lines->Clear();
Memo1->SetFocus();
}
}
//---------------------------------------
void __fastcall TForm1::Memo1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if ((Shift.Contains(ssCtrl)) && Key == VK_RETURN)
{
Key = 0;
Application->ProcessMessages();
Button1->Click();
}
}