| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

scrollbox onscroll event [D7]

Валя ©   (2016-04-28 15:49:00) 

вот нагуглин такой пример:


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 17:11:00) [1]

Windows

---

Валя   (2016-04-28 16:53:00) [2]

> Даже в ХЕ7 таких событий у TScrollBox нет.

Ясно.

SB_ENDSCROLL = ? или в каком модуле?

---

Германн   (2016-04-28 16:37:00) [3]

> версия Delphi7

Даже в ХЕ7 таких событий у TScrollBox нет. Так что в desing time ничего не сделаешь.

---

Валя   (2016-04-28 16:29:00) [4]

> А они есть в твоей версии Дельфи?

Это про что?
версия Delphi7

---

Германн   (2016-04-28 16:11:00) [5]

А они есть в твоей версии Дельфи?

---

Наверх