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

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

← →
Артем К.   (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]

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

---

← →
TUser ©   (2004-03-08 15:43) [9]

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

А, понял что надо. Поставь
  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
Заранее БОЛЬШОЕ СПАСИБО!!!

---

← →
TUser ©   (2004-03-08 15:55) [12]

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

---

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

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



Память: 0.47 MB
Время: -0.977 c