Tema: Memo lines
Ver Mensaje Individual
  #6  
Antiguo 18-11-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
  
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Otra forma que se me ocurre es:

Código Delphi [-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  with (Sender as TMemo) do
    if (Key = #13) and (Lines[Perform(EM_LINEFROMCHAR,SelStart,0)] = '') then
    Key:= #0;
end;

Saludos.
Responder Con Cita