Как создать свой скролл бар и присобачить его к форме

← →
Артем К. (2004-03-08 08:45) [0]

← →
TUser © (2004-03-08 09:05) [1]

Создать - Create, присобачить - Parent.

← →
Gero © (2004-03-08 09:31) [2]

> Создать - Create, присобачить - Parent

Скролбар - TScrollBar, форма - TForm :)

← →
Rouse_ © (2004-03-08 12:25) [3]

В качестве бреда:
И вообще Положи батон по координатам 1000х1000 - скролы сами появятся ;) Фиг отлепишь ;)

procedure TForm1.FormCreate(Sender: TObject);
var
B: TButton;
begin
BorderStyle := bsSizeable;
B := TButton.Create(Self);
with B do
begin
Parent := Self;
Left := 1000;
Top := 1000;
end;
end;

← →
Артем К. (2004-03-08 14:52) [4]

Я имею в виду всой скролл со своими стрелками и кнопками!

← →
TUser © (2004-03-08 14:56) [5]

Наследовать от обычного скролла. Написать собственный код для прорисовки.

← →
Артем К. (2004-03-08 15:15) [6]

Это понятно, а как заменить формовский скролл моим скроллом

← →
Rouse_ © (2004-03-08 15:17) [7]

Я что-то не пойму, зачем, он у тебя что? Такой нестандартный чтоли?

← →
Артем К. (2004-03-08 15:21) [8]

Ну типа хочу свои добавить дополнительно кнопки (сразу вверх и сразу вниз)

> Это понятно, а как заменить формовский скролл моим скроллом

А, понял что надо. Поставь
form1.VertScrollBar.Visible:=false;
А потом пририсуй свой скролл с align=alLeft.
Обработай от формы сообщений WM_MOUSEWHEEL - пересылай его скроллу. Потом еще при перемещении твоего скролла напиши посылание форме сообщений WM_VSCROLL и WM_HSCROLL. Я что-то похожее делал для RichEdit, если надо могу выслать пример, когда дома буду.

← →
Артем К. (2004-03-08 15:48) [10]

давай на мыло: pochta4artyom@mail.ru

← →
Артем К. (2004-03-08 15:49) [11]

> TUser
Заранее БОЛЬШОЕ СПАСИБО!!!

Сегодня меня дома не будет - завтра скину.

Как создать свой скролл бар и присобачить его к форме Найти похожие ветки