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

Послать сообщение TScrollBox на прокрутку   Найти похожие ветки 

← →
Alibaba ©   (2003-10-03 18:10) [0]

Привет.

Где-то видел обсуждение этого вопроса.
Не могу найти... :((

Может подскажите?

---

← →
афвуд ©   (2003-10-03 18:51) [1]

Я может не совсем понял, но у ScrollBox есть свойствa HorzScrollBar and VertScrollBar, а у них есть свойства Position. Что ещё нужно то?

---

← →
Alibaba ©   (2003-10-10 10:41) [2]

Я хочу выключить HorzScrollBar and VertScrollBar и управлять прокруткой вручную.

Можно ли такое?

---

← →
Семен Сорокин ©   (2003-10-10 10:44) [3]

unit ScrBox;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, Forms;

type
TScrollDirect = (sdVert, sdHorz);

TScrollEvent = procedure (Sender: TScrollBox; Direct: TScrollDirect; Position: integer) of object;

TScrBox = class(TScrollBox)
private
FOnScroll: TScrollEvent;
procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
procedure WMNCHitTest(var Message: TMessage); message WM_NCHITTEST;
published
property OnScroll: TScrollEvent read FOnScroll write FOnScroll;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Samples", [TScrBox]);
end;

{ ------------------------------- TScrBox ------------------------------------ }

procedure TScrBox.WMHScroll(var Message: TWMHScroll);
begin
inherited;
if Assigned(FOnScroll) then
FOnScroll(TScrollBox(Self), sdHorz, HorzScrollBar.Position)
end;

procedure TScrBox.WMNCHitTest(var Message: TMessage);
begin
DefaultHandler(Message)
end;

procedure TScrBox.WMVScroll(var Message: TWMVScroll);
begin
inherited;
if Assigned(FOnScroll) then
FOnScroll(TScrollBox(Self), sdVert, VertScrollBar.Position)
end;

end.

---

← →
ZEE ©   (2003-10-10 11:01) [4]

ScrollBox1.ScrollBy(...);
или так
ScrollBox1.VertScrollBar{/HorzScrollBar}.Position:=...;
выбирай как нравится

---

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

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



Память: 0.45 MB
Время: 0.017 c