请教：要使memo中，当光标所在那一行为空时，如果回车，光标不下移。怎么实现？

Question

keypress事件中
if key=#13 then exit;

Answer 1

pidi要得没这么简单，否则一个属性就完了。
pidi，你的要求都很少见！！你再做什么东西?

Answer 2

perform(EM_LINEINDEX,Value,0)
发送消息,VALUE是你想到的行.

Answer 3

谢谢上面各位！
to ch81:我在做一个mis系统，memo中用来显示条码，一个条码一行，我不想用户回车输入空行，这样不好看，并且给我对条码的处理带来困难。to yibin:能不能详细一点？

Answer 4

procedure TMainForm.MemoKeyPress(Sender: TObject; var Key: Char);
begin
  if((Key=#13)
    then key:=#0;
end;
不过要首先保证当前行是空行，让我想想！

Answer 5

你可以将Memo控件换成TListBox,它有itemindex属性，这样一来就好办多了：可以判断当前行是不是空了！

Answer 6

这么做 
procedure TMainForm.MemoKeyPress(Sender: TObject; var Key: Char);
Var
  I:Integer;
begin
  if((Key=#13) then 
    If Memo.Line.Count>0 Then
      For I:=Memo.Line.Count-1 DownTo 0 Do
        If Memo.Line.Strings[I]='' Then Memo.Line.Delete(I);
end;

Answer 7

谢谢上面各位，再次谢谢anyiflyer(安逸飞)的提醒，换了一个控件，问题解决了！
to Fairton(飞云):不能保证每行都不能为空。　

Answer 8

是啊关键是不能保证没行都为空！
不过ListBox可能没有Memo装的东东多！呵呵！