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

← →
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;

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