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

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

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

Отключение прокрутки у RichEdit [D5, Win95/98]

Sergn © (2002-05-11 19:58:00)
Проблема в следующем.
При вводе текста, размер окна RichEdit устанавливается таким образом чтобы весь текст был виден. Высота окна определяется количеством строк.
Этот вопрос решается событием onResizeRequest и следующим кодом

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

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

Sergn (2002-05-13 19:34:00) [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;

Наверх

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