Memo verlassen wenn Zeile leer

[PM Heiko]

Hallo,

ich möchte ein DBMemo verlassen, wenn Enter gedrückt wird und die Zeile in dem sich der Cursor befindet leer ist.

Tipps ??

Danke, heiko

[Bernd Schulz]

Hallo!<br>
Ich glaube (nicht final getestet) dass sollte gehen:<br>
<PRE>
procedure TForm1.DBMemo1KeyPress(Sender: TObject; var Key: Char);
var
i, count, test : integer;
begin
if key = #13 then begin
test := dbmemo1.selstart;
count := 0;
if (dbmemo1.selstart = 0) and (dbmemo1.lines.count = 0) then begin
key := #0;
ActiveControl := edit1;
exit;
end;
for i := 0 to dbmemo1.lines.count-1 do begin
count := count + length(dbmemo1.lines[i])+2;
if count = test then begin
key := #0;
ActiveControl := edit1;
break;
end
else begin
if count > test then begin
break;
end;
end;
end;
end;
end;
</PRE>
Wobei du für Edit1 deine gewünschte nächste Komponente einsetzen mußt....<br>
BYE BERN