Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Курсор [D6, Win2k]

kirilllius © (2004-11-04 10:42:00)
Мастера, подскажите, мне нужно, чтобы по нажатию на кнопке Memo стало только для чтения и спрятать в нем курсор. Я делаю следующее

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

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

Семен Сорокин (2004-11-04 14:42:00) [1]

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

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

kirilllius (2004-11-04 14:30:00) [2]
Так веё-таки, как скрыть курсор в Memo?

kirilllius (2004-11-04 14:20:00) [3]
>Юрий Зотов
Прошу прощения, все работает

kirilllius (2004-11-04 14:17:00) [4]
>Юрий Зотов
Ничего не выходит, на панели ничего не появляется.

Юрий Зотов (2004-11-04 13:43:00) [5]
Сорри, конечно:

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

Юрий Зотов (2004-11-04 13:41:00) [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;

kirilllius (2004-11-04 13:29:00) [7]
>PVOzerski
А как туда выводить текст допустим в строк 100 и форматировать его по левому краю?

PVOzerski (2004-11-04 12:53:00) [8]
Подменить Мемо на что-то другое. Например, на panel в ScrollBox'e.

kirilllius (2004-11-04 12:50:00) [9]
Так веё-таки, как скрыть курсор?

star.ru (2004-11-04 12:20:00) [10]
>Семен Сорокин

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

Семен Сорокин (2004-11-04 11:40:00) [11]
Enabled?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »