Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.21;
Скачать: 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 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.032 c
14-1098736585
Беспечный_Ангел
2004-10-26 00:36
2004.11.21
Ария vs Кипелов


3-1098778531
goldenmax
2004-10-26 12:15
2004.11.21
не работает запрос Поооооомоооооооооогите SOS!!!!!


1-1099647567
Pentium133
2004-11-05 12:39
2004.11.21
Delphi 6 и Delphi 4


14-1098345482
olookin
2004-10-21 11:58
2004.11.21
Прогнозы на 4-й тур Лиги Чемпионов


14-1099169352
vecna
2004-10-31 00:49
2004.11.21
Парсинг DFM