Скачать: CL | DM;

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 более актуальный на данный момент.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c