Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];

Вниз

Как отключить автопрокрутку...   Найти похожие ветки 

 
_hunter_   (2004-01-05 12:02) [0]

Здравствуйте!
На ScrollBox_е находится множество компонентов. Каждый из них можно перемещать при помощи мыши. А проблема в том, что когда компонент получает фокус, ScrollBox автоматически прокручивается, так чтобы этот компонент был виден. Если он виден не полностью то при нажатии на него мышью он сильно смещается. :( Как можно отключить эту прокрутку?


 
Zergling   (2004-01-05 12:10) [1]

AutoScroll - false


 
_hunter_   (2004-01-05 12:12) [2]

я тоже так хотел... но если AutoScroll:=false тогда пропадают полосы прокрутки


 
TUser   (2004-01-05 12:33) [3]

Перехватить WM_MOUSEWHEELE или что-то в этом роде.


 
_hunter_   (2004-01-05 12:46) [4]

а при чем тут WM_MOUSEWHEELE? когда tab_ом перехожу тоже прокрутка происходит


 
Семен Сорокин   (2004-01-05 12:53) [5]

была такая проблема, пришлось сделать в форме следующие обработчики:

1. на OnEnter контрола с фокусом
procedure TfrmSelParams.lvEnter(Sender: TObject);
begin
with TListView(Sender) do
if Items.Count > 0 then begin
if not Assigned(Selected) then
Selected := Items[0];
Selected.Focused := true;
FPos := ScrBox.VertScrollBar.Position
end
end;


2. Обработка message CM_FOCUSCHANGED формы
procedure TfrmSelParams.WMFocusChanged(var Msg: TMessage);
begin
if TWinControl(Msg.LParam) is TListView then
ScrBox.VertScrollBar.Position := FPos
end;


Я сохранял в FPos позицию только вертикального бара, в твоем случае возможно нужно сохранять и горизонтального.



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

Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.01 c
3-49456
Ломброзо
2003-12-18 00:00
2004.01.16
Дополнение строк пробелами в MIDAS


7-49778
BSL
2003-09-17 09:21
2004.01.16
Чтение физических секторов накопителей


1-49545
gestern
2004-01-01 17:12
2004.01.16
TForm


6-49662
BlackSun
2003-11-15 11:04
2004.01.16
SSL


1-49511
Олег С.
2003-12-23 14:48
2004.01.16
Меню как в Delphi (Bar с меню, подвижный, съемный)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский