Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Вниз
Послать сообщение 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c
