|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
TMemo убрать курсор
Как это сделать? Да если еще нельзя будет выделять текст, то вообще хорошо. Хочу использовать этот компонент для вывода текста без возможности редактирования.
|
#2
|
||||
|
||||
Enabled:=False
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#3
|
|||
|
|||
Надо, чтобы скролл работал и цвет был штатным. В этом компоненте при изменении размера окна идет перенос текста по словам и автоскролл, что очень удобно. Вот в отображении хелпов так же устроено и нет курсора. Может, поменять цвет курсора на фоновый?
|
#4
|
|||
|
|||
Скрыть курсор можно так:
Код:
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, но выделять по пержнему возможно |
#5
|
|||
|
|||
Избавиться от редактирования можно проще
Memo1.ReadOnly:= true; |