Скачать: CL | DM;

как определеть над компонентом момент вращания колесика и передат   Найти похожие ветки 

← →
GraY ©   (2004-07-16 17:54) [0]

как определеть над компонентом момент вращания колесика и передать это событие другому компоненту к примеру TMemo

---

← →
GraY ©   (2004-07-17 07:21) [1]

Какие вы все тут общительные :(

---

← →
Michael   (2004-07-17 15:03) [2]

за окном лето + выходные

---

← →
Cardinal ©   (2004-07-17 20:36) [3]

MouseWheelDown
MouseWheelUp
MouseWheel

---

← →
Michael   (2004-07-18 11:52) [4]

Cardinal ©   (17.07.04 20:36) [3]
Подробней пожалуста если можно.

---

← →
grom   (2004-07-19 07:42) [5]

private
procedure MWheel(var m:TWMMouseWheel); message WM_MOUSEWHEEL;
.............
procedure TForm1.MWheel(var m:TWMMouseWheel);
begin
if m.WheelDelta >0 then Caption:="вверх"
                  else Caption:="вниз";
end;

---

← →
grom   (2004-07-19 07:47) [6]

Как узнать, что курсор мыши над моей формой?

procedure TForm1.Timer1Timer(Sender: TObject);
var
 FormPos: TRect;
 CursorPos: TPoint;
begin
  GetCursorPos( CursorPos );
  FormPos := Rect( Form1.Left, Form1.Top,
                   Form1.Left + Form1.Width,
                   Form1.Top + Form1.Height );
  if PtInRect( FormPos, CursorPos ) then
     Form1.Caption := "Мышка над формой!"
  else
     Form1.Caption := "Мышка вне формы...";
end;

---

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

Скачать: CL | DM;



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