Скачать: CL | DM;

Курсор   Найти похожие ветки 

← →
kirilllius   (2004-11-04 10:42) [0]

Мастера, подскажите, мне нужно, чтобы по нажатию на кнопке Memo стало только для чтения и спрятать в нем курсор. Я делаю следующее

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.ReadOnly:=True;
HideCaret(Memo1.Handle);
end;

Но после нажатия на кнопке Memo1 становится только для чтения, а, вот, курсор не исчезает и остается в окне Memo1 мигать. Подскажите, как правильно скрыть курсор  в Memo1.

---

← →
Семен Сорокин ©   (2004-11-04 11:40) [1]

Enabled?

---

← →
star.ru   (2004-11-04 12:20) [2]

>Семен Сорокин

Enabled чего? Если Memo, оно равно True, чтобы пользователь мог просматривать Memo.

---

← →
kirilllius   (2004-11-04 12:50) [3]

Так веё-таки, как скрыть курсор?

---

← →
PVOzerski ©   (2004-11-04 12:53) [4]

Подменить Мемо на что-то другое. Например, на panel в ScrollBox"e.

---

← →
kirilllius   (2004-11-04 13:29) [5]

>PVOzerski
А как туда выводить текст допустим в строк 100 и форматировать его по левому краю?

---

← →
Юрий Зотов ©   (2004-11-04 13:41) [6]

> kirilllius   (04.11.04 13:29) [5]

var
 S: string;
 TFriendPanel = class(TPanel);
 R: TRect;
...
S := "какой-то текст";
with TFriendPanel(TPanel1) do
begin
 R := ClientRect;
 DrawText(Canvas.Handle, PChar(S), Length(S), R,
   DT_LEFT or DT_EDITCONTROL or DT_WORDBREAK or DT_EXPANDTABS)
end;

---

← →
Юрий Зотов ©   (2004-11-04 13:43) [7]

Сорри, конечно:

type
 TFriendPanel = class(TPanel);
var
 ...

---

← →
kirilllius   (2004-11-04 14:17) [8]

>Юрий Зотов
Ничего не выходит, на панели ничего не появляется.

---

← →
kirilllius   (2004-11-04 14:20) [9]

>Юрий Зотов
Прошу прощения, все работает

---

← →
kirilllius   (2004-11-04 14:30) [10]

Так веё-таки, как скрыть курсор в Memo?

---

← →
Семен Сорокин ©   (2004-11-04 14:42) [11]

> kirilllius   (04.11.04 14:30) [10]
> Так веё-таки, как скрыть курсор в Memo?

как вариант сделать наследника, где перекрыть WM_SETFOCUS, или подменить WindowProc.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c