Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

Отключение прокрутки у RichEdit   Найти похожие ветки 

 
Sergn   (2002-05-11 19:58) [0]

Проблема в следующем.
При вводе текста, размер окна RichEdit устанавливается таким образом чтобы весь текст был виден. Высота окна определяется количеством строк.
Этот вопрос решается событием onResizeRequest и следующим кодом

procedure TForm1.RichEditResizeRequest(Sender: TObject; Rect: TRect);
begin
(Sender as TRichEdit).BoundsRect := Rect;
end;


Но как только я мышкой выделяю текст в данном окне, то он самопроизвольно смещается за верхнюю границу окна. Как мне избавится от самопроизволной прокрутки текста?


 
Sergn   (2002-05-13 19:34) [1]

Вроде получилось

tmyrichedit=class(trichedit)
private
procedure CreateParams(var Params: TCreateParams);override;
end

procedure tmyrichedit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style-ES_AUTOVSCROLL;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.018 c
6-73332
sergey_1
2002-02-22 08:45
2002.05.23
TNMSMTP Уведомление о доставке


1-73287
Lord BDV
2002-05-09 10:40
2002.05.23
Форма без заголовка - словно еж! Взять не за что.


1-73236
vlad0007
2002-05-10 01:19
2002.05.23
Привет, Мастера!!!


6-73330
SerVS - S
2002-03-12 16:50
2002.05.23
Variant + TCP


14-73369
MBo
2002-04-15 18:29
2002.05.23
Небесполезные мелочи (в качестве обучения)