Ocultar el cursor de edicion (caret) en un TMemo  

Enviado Por: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Fecha: 10/10/99

Truco accedido 56 veces

 


Basta con poner este código en su evento OnKeyDown:


 procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
   HideCaret( (Sender as TMemo).handle );
 end;



Y tambien en el evento OnMouseDown:


 procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
   HideCaret( (Sender as TMemo).handle );
 end;