Скрыть курсор можно так:
Процедура только скрывает курсор, но он фактически остается...
Сделал так:
Код:
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
HideCaret(Memo1.Handle)
end;
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Key := 0;
end;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key := #0;
end;
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Key := 0;
end;
Таким образом удалось полностью избавиться от редактирования Memo, но выделять по пержнему возможно