Scrollen mit MouseWheel im Formular geht nich!

peppi · Beiträge: 65 delphi 7

Hi ihr,

mal ne kleine Frage zum Mausrad. Ich kann damit in meinem Formular nicht scrollen. Wenn der benutzer die Form kleiner zieht kann ich höchsten noch mit der Scrollbar nach unten scrollen. Die Bild-auf und Bild-ab tasten gehen soweit nachdem ich's eingestellt hab. Nur das verdammte Mausrädchen will nich so recht :evil:

Geht doch bestimmt über

markieren

Quelltext

1:	TForm1.FormMouseWheelDown

oder?? Bloß wie?? Find da weder in der Hilfe noch im www wat zu :cry:

Hoffe ihr könnt mir da weiterhelfen!!

Gruß, Jana!

wulfskin · Verfasst: Mi 26.03.03 14:20

Hallo peppi!

Ich weiss nicht sicher ob das klappt, sollte aber eigentlich!
Du könntest versuchen die Nachricht WM_MOUSEWHEEL (oder CM_MOUSEWHEEL) abzufangen und darauf reagieren!

Gruß wulfskin!

Nachtrag (Klappt wirklich):

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure OnMouseWheel(var Msg: TMessage); message WM_MOUSEWHEEL;

procedure TForm1.OnMouseWheel(var Msg: TMessage);
var
  zDelta: Smallint;
begin
  zDelta := HIWORD(Msg.wParam);
  ShowMessage(IntToStr(zDelta));
  Msg.Result := 0;
end;

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

peppi · Beiträge: 65 delphi 7

Hi wulfskin,

danke erstmal für die schnelle Antwort!!

Scrollt das bei dir mit der Anweisung runter / hoch?? Bei mir nicht. Ich krieg dann tatsächlich ne Message.
Bei Mousewheel runter "-120"
bei Mousewheel hoch "120"

Benutze übrigens noch Delphi 4, falls es daran liegen sollte?!?

wulfskin · Verfasst: Mi 26.03.03 15:29

Hallo peppi!

Nein, damit scrollt man das Formular nicht runter sondern fängt jediglich das Mausrad ab. Das Scrollen musst du noch selber eintragen, ich dachte das weisst du

:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.OnMouseWheel(var Msg: TMessage);
var
  zDelta: Smallint;
begin
  zDelta := HIWORD(Msg.wParam);
  if zDelta > 0 then
    Perform(WM_VSCROLL, SB_LINEUP, 0)
  else
    Perform(WM_VSCROLL, SB_LINEDOWN, 0);
  Msg.Result := 0;
end;

Gruß wulfskin!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme