ScrollBar окна

← →
Pattern (2003-11-05 13:44) [0]

Как можно программно установить вертикальный ScrollBar окна в крайнее верхнее положение, а горизонтальный в крайнее левое? А то при перестраивании копанентов на форме при изменении размера окна если скрол находился где-нить на середине, то и выстраиваются компаненты с середины формы...

← →
Pattern (2003-11-05 17:22) [1]

Мастера, хелп. Просто вообще не знаю, где копать? Через какую процедуру/функцию можно "достучаться" до этого свойства. Спасибо!

← →
Pattern (2003-11-06 12:35) [2]

Тут подсмотрел один код, который отсылает сообщение через SendMessage нужному компаненту. Но он всё равно не отрабатывает так, как нужно. Скорее всего, потому что я не правильно делаю.
Например, кидаю на чистую форму кнопку и делаю окно меньше, чтобы появились скролы и кнопка исчезла из вида. При создании формы, когда кликаешь по кнопке, скролы "оживают", но передвигаются на какие-то свои установленные доли. А нужно в самое начало.
procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Form1.Handle,WM_VSCROLL,0,0); SendMessage(Form1.Handle,WM_HSCROLL,0,0); end;
Самое не понятное, что нужно передать в качестве lParam и wParam?

← →
Pattern (2003-11-06 12:38) [3]

Йоу!!!!!!!! Нашел!!! Как всегда всё не просто а очень просто, если знаешь где искать...
procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Form1.Handle,WM_VSCROLL,SB_TOP,0); SendMessage(Form1.Handle,WM_HSCROLL,SB_LEFT,0); end;d;-)

← →
[lamer]Barmaglot (2003-11-06 13:18) [4]

Насколько я помню есть такие ф-ции как:
SetScrollInfo
SetScrollPos

← →
Pattern (2003-11-06 16:49) [5]

Не знаю, как на счёт SetScrollInfo, но SetScrollPos всего лишь помещает скроллинг в то положение, которое ему задаётся, однако позиции на форме он не изменяет. Так что вариант с SendMessage более актуальный на данный момент.

ScrollBar окна Найти похожие ветки