Курсор

← →
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?

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

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

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