Текущий архив: 2018.05.06;
Скачать: CL | DM;
Вниз
scrollbox onscroll event Найти похожие ветки
← →
Валя (2016-04-28 15:49) [0]вот нагуглин такой пример:
unit EvScrollBox;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms;
type
TEvScrollBox = class(TScrollBox)
private
FVScrollEvent: TNotifyEvent;
FHScrollEvent: TNotifyEvent;
Procedure WMVScroll( Var msg: TWMVScroll ); Message WM_VSCROLL;
Procedure WMHScroll( Var msg: TWMHScroll ); Message WM_HSCROLL;
protected
Procedure DoVScroll;
Procedure DOHSCroll;
public
published
property OnVScroll: TNotifyEvent
read FVScrollEvent write FVScrollEvent;
property OnHScroll: TNotifyEvent
read FHScrollEvent write FHScrollEvent;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents("Samples", [TEvScrollBox]);
end;
{ TEvScrollBox }
procedure TEvScrollBox.DOHSCroll;
begin
If Assigned( FHSCrollEvent ) Then
FHScrollEvent( self );
end;
procedure TEvScrollBox.DoVScroll;
begin
If Assigned( FVSCrollEvent ) Then
FVScrollEvent( self );
end;
procedure TEvScrollBox.WMHScroll(var msg: TWMHScroll);
begin
inherited;
If msg.ScrollCode <> SB_ENDSCROLL Then
DoHScroll;
end;
procedure TEvScrollBox.WMVScroll(var msg: TWMVScroll);
begin
inherited;
If msg.ScrollCode <> SB_ENDSCROLL Then
DoVScroll;
end;
end.
А можно ли просто повесить обработчики на стандартный ScrollBox в desing time?
← →
Германн © (2016-04-28 16:11) [1]А они есть в твоей версии Дельфи?
← →
Валя (2016-04-28 16:29) [2]
> А они есть в твоей версии Дельфи?
Это про что?
версия Delphi7
← →
Германн © (2016-04-28 16:37) [3]
> версия Delphi7
Даже в ХЕ7 таких событий у TScrollBox нет. Так что в desing time ничего не сделаешь.
← →
Валя (2016-04-28 16:53) [4]
> Даже в ХЕ7 таких событий у TScrollBox нет.
Ясно.
SB_ENDSCROLL = ? или в каком модуле?
← →
Германн © (2016-04-28 17:11) [5]Windows
Страницы: 1 вся ветка
Текущий архив: 2018.05.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.005 c
