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