My Visual Database — положение курсора мышки

Re: положение курсора мышки

null@example.com (sibprogsistem) — Sun, 21 Feb 2021 15:58:39 +0000

vovka3003 wrote:

На:

procedure FmMouseWheel(Sender: TObject; isShift, isAlt, isCtrl: boolean;
WheelDelta: Integer; X, Y: Integer; var Handled: Boolean);
var Accel:integer;
begin
  if isCtrl then Accel := 2 else Accel := 10; // Ускорение 5х при зажатом Ctrl
  TForm(Sender).VertScrollBar.Position:=
  TForm(Sender).VertScrollBar.Position - WheelDelta div Accel;
end;

var fc:Integer;

begin
  for fc:=0 to Screen.FormCount-1 do
  TForm(Screen.Forms[fc]).OnMouseWheel := @FmMouseWheel;
end.

Спасибо!

Re: положение курсора мышки

null@example.com (sibprogsistem) — Sun, 21 Feb 2021 15:51:48 +0000

vovka3003 wrote:

Скроллбар тоже не работает..?

скролл отображается но косячно, для нормальной работы применил Range

Re: положение курсора мышки

null@example.com (vovka3003) — Sun, 21 Feb 2021 15:24:37 +0000

На:

procedure FmMouseWheel(Sender: TObject; isShift, isAlt, isCtrl: boolean;
WheelDelta: Integer; X, Y: Integer; var Handled: Boolean);
var Accel:integer;
begin
  if isCtrl then Accel := 2 else Accel := 10; // Ускорение 5х при зажатом Ctrl
  TForm(Sender).VertScrollBar.Position:=
  TForm(Sender).VertScrollBar.Position - WheelDelta div Accel;
end;

var fc:Integer;

begin
  for fc:=0 to Screen.FormCount-1 do
  TForm(Screen.Forms[fc]).OnMouseWheel := @FmMouseWheel;
end.

Re: положение курсора мышки

null@example.com (sibprogsistem) — Sun, 21 Feb 2021 14:07:38 +0000

vovka3003 wrote:

Как-то более связно выразив мысли наверное, ибо части вопроса между собой не вяжутся...

на двух формах включен AutoScroll
обе формы наполнены компонентами
прокрутка формы активируется когда на нее наводится курсор мышки, но если курсор попадает на компонент в этой форме то прокрутка не срабатывает

Re: положение курсора мышки

null@example.com (vovka3003) — Sat, 20 Feb 2021 22:03:10 +0000

sibprogsistem wrote:

...положение курсора мышки
...прокрутка мышкой....
...OnMouseEnter...

sibprogsistem wrote:

как решить эту проблему?

Как-то более связно выразив мысли наверное, ибо части вопроса между собой не вяжутся...

положение курсора мышки

null@example.com (sibprogsistem) — Sat, 20 Feb 2021 20:14:41 +0000

прокрутка мышкой срабатывает когда та находится над формой, но если на форма забита компонентами, то наведение мышки на саму форму не отслеживается..

как решить эту проблему?
или мне каждый компонент на форме подписывать на событие OnMouseEnter, что бы отследить этого зверя?