Truco accedido 81 veces
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin HideCaret( (Sender as TMemo).handle ); end;
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin HideCaret( (Sender as TMemo).handle ); end;