Показать сообщение отдельно
  #4  
Старый 17.08.2008, 23:42
Drozh Drozh вне форума
Активный
 
Регистрация: 12.06.2008
Сообщения: 313
Репутация: 40
По умолчанию

Скрыть курсор можно так:
Код:
HideCaret(Memo1.Handle);
Процедура только скрывает курсор, но он фактически остается...

Сделал так:

Код:
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, но выделять по пержнему возможно
Ответить с цитированием