Форум: "Начинающим";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];

Вниз

scroll   Найти похожие ветки 

← →
apic ©   (2007-08-20 08:20) [0]

Как перехватить или обработать событие нажать кнопки скроля на форме и вращение скроля (соответственно что бы можно было узнать вперед крутится или назад и на сколько щелчков прокрутилось)?

---

← →
Elen ©   (2007-08-20 09:37) [1]

Например так :

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   ListBox1: TListBox;
   procedure scl(var m:TWMScroll); message WM_Vscroll;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.scl(var m: TWMScroll);
begin
caption:=inttostr(m.ScrollCode);
inherited;
end;

end.


---

← →
Leonid Troyanovsky ©   (2007-08-20 10:09) [2]

> apic ©   (20.08.07 08:20)

> Как перехватить или обработать событие нажать кнопки скроля на форме


type
 TForm1 = class(TForm)
   ..
 private
   { Private declarations }
   procedure DisplayScrollXY;
   procedure WMVScroll( Var msg: TWMVScroll ); Message WM_VSCROLL;
   procedure WMHScroll( Var msg: TWMHScroll ); Message WM_HSCROLL;
 public
   { Public declarations }
 end;

implementation

{$R *.dfm}

procedure TForm1.DisplayScrollXY;
begin
 Caption := Format("Horz: %d Vert: %d", [GetScrollPos(Handle, SB_HORZ), GetScrollPos(Handle, SB_VERT)]);
end;

procedure TForm1.WMHScroll(var msg: TWMHScroll);
begin
 inherited;
 DisplayScrollXY;
end;

procedure TForm1.WMVScroll(var msg: TWMVScroll);
begin
 inherited;
 DisplayScrollXY;
end;

--
Regards, LVT.

---

← →
apic ©   (2007-09-08 14:03) [3]

Ни чего не работает, компилиться без ошибок, но форма ни на что не реагирует!!!!!!!!!!

---

← →
apic ©   (2007-09-08 15:14) [4]

Ставил точку останова, видимо сообщения WM_VSCROLL и WM_HSCROLL вообще до формы не доходят.

---

← →
Dib@zol ©   (2007-09-08 15:47) [5]

Попробуй напрямую без ВЦЛьной обёртки послать скроллбоксу WM_*SCROLL через SendMessage. Если результата не будет - то это уже глюк Винды. Что в принципе маловероятно.

---

← →
Dib@zol ©   (2007-09-08 16:02) [6]

Тфу, брет сморозил. Я хотел сказать - а нет ли у скролла промежуточных парентов до самОй формы, панели там всякие итп?

---

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

Форум: "Начинающим";
Текущий архив: 2007.10.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.045 c