| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

GraY ©   (2004-07-16 17:54:00) 

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

---

grom   (2004-07-19 07:47:00) [1]

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

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;

---

grom   (2004-07-19 07:42:00) [2]

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;

---

Michael   (2004-07-18 11:52:00) [3]

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

---

Cardinal   (2004-07-17 20:36:00) [4]

MouseWheelDown
MouseWheelUp
MouseWheel

---

Michael   (2004-07-17 15:03:00) [5]

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

---

GraY   (2004-07-17 07:21:00) [6]

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

---

Наверх