13,825
社区成员
发帖
与我相关
我的任务
分享OnKeyDown里有ENTER键，怎么让这个ENTER键不对MEMO起作用
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
switch(Key)
{
case VK_RETURN:
{
ShowMessage(Memo1->Text);
break;
}
}
}
按下ENTER键，MEMO1也会另起一行，怎么弄不另起一行？
TShiftState Shift)
{
switch(Key)
{
case VK_RETURN:
{
ShowMessage(Memo1->Text);
break;
}
}
}
按下ENTER键，MEMO1也会另起一行，怎么弄不另起一行？
...全文
请发表友善的回复…
发表回复
XBox360 2005-08-01
- 打赏
- 举报
if (Key==VK_RETURN)
Key = 0;
Key = 0;
ddir 2005-07-31
- 打赏
- 举报
Key = 0;
我这里不行
我这里不行
samchoy 2005-07-29
- 打赏
- 举报
同意Key=0;
mhmdanger 2005-07-29
- 打赏
- 举报
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
switch(Key)
{
case VK_RETURN:
{
ShowMessage(Memo1->Text);
Key=0; //行不
break;
}
}
}
TShiftState Shift)
{
switch(Key)
{
case VK_RETURN:
{
ShowMessage(Memo1->Text);
Key=0; //行不
break;
}
}
}
Maconel 2005-07-29
- 打赏
- 举报
Memo1->WantReturns = false;
