Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Как заставить ScroolBar прокручиваться от ролика мыши?   Найти похожие ветки 

 
Comp ©   (2003-06-02 13:06) [0]

И вообще, как обработать событие от прокручивания ролика?


 
pasha676   (2003-06-02 13:13) [1]

Самый прозрачный вариант - эвенты OnMouseWheel


 
Comp ©   (2003-06-10 11:53) [2]

Чуть по подробнее, пожалуйста. Как ими пользоваться?


 
Yanis ©   (2003-06-10 14:34) [3]

To Comp © (10.06.03 11:53)

Теперь то надеюсь будет понятно!

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ScrollBar1: TScrollBar;
procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position:=ScrollBar1.Position-3;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
ScrollBar1.Position:=ScrollBar1.Position+3;
end;

end.


 
Comp ©   (2003-06-11 12:42) [4]

Да, теперь всё ясно. Спасибо.



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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-84379
Veles
2003-06-09 10:57
2003.06.26
Изображение из Delphi в Excel


4-84824
Василий Петрович
2003-04-19 19:36
2003.06.26
Вопрос про едит


14-84547
Кен
2003-06-01 06:04
2003.06.26
Как отличить причину от следствия ? Чтобы анализировать события


14-84624
VEG
2003-06-07 20:27
2003.06.26
Что-то пропала посещаемость сайта...


3-83917
krotik
2003-06-03 12:29
2003.06.26
RDSConnection в ADO - вопрос не для слабаков