Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];
ВнизОтключение прокрутки у 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c