AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

OnMouseWheel

Ein Thema von gengler2 · begonnen am 8. Okt 2006 · letzter Beitrag vom 9. Okt 2006
Antwort Antwort
Seite 1 von 2  1 2      
gengler2

Registriert seit: 18. Okt 2005
Ort: Remich
18 Beiträge
 
#1

OnMouseWheel

  Alt 8. Okt 2006, 21:27
Hi,

Hab kurz 'ne Frage.

Wie kann ich in einem Memofeld mit dem Rad der Mouse scrollen?
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: OnMouseWheel

  Alt 8. Okt 2006, 21:37
Hi,

wenn du die Eigenschaft ScrollBars beispielsweise auf ssVertical setzt, dann geht das ohne Umwege über Ereignisse/Messages.
  Mit Zitat antworten Zitat
gengler2

Registriert seit: 18. Okt 2005
Ort: Remich
18 Beiträge
 
#3

Re: OnMouseWheel

  Alt 8. Okt 2006, 21:42
Bei mir aber leider nicht. Weiss leider nicht warum, deshalb wollte ich es über die Prgrammation versuchen.
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.196 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: OnMouseWheel

  Alt 8. Okt 2006, 21:45
Zitat von gengler2:
Bei mir aber leider nicht. Weiss leider nicht warum, deshalb wollte ich es über die Prgrammation versuchen.
Welche Delphi-Version wird eingesetzt. Ältere Versionen unterstützen das MouseWheel nicht in der VCL.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
gengler2

Registriert seit: 18. Okt 2005
Ort: Remich
18 Beiträge
 
#5

Re: OnMouseWheel

  Alt 8. Okt 2006, 21:45
Delphi 5 Professional
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: OnMouseWheel

  Alt 8. Okt 2006, 22:14
Vielleicht kannst du es irgendwie so lösen (nicht getestet):

Delphi-Quellcode:
procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;

procedure TForm1.WMMouseWheel(var Msg: TWMMouseWheel);
begin
  if Memo1.Focused then
  begin
    if Msg.WheelDelta > 0 then
      // scroll up
      SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP, 0)
    else
      // scroll down
      SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0);

    Msg.Result := 0;
  end;
end;
Ich weiß nicht, ob man's so überhaupt lösen kann, könnte es mir jedoch vorstellen.
  Mit Zitat antworten Zitat
gengler2

Registriert seit: 18. Okt 2005
Ort: Remich
18 Beiträge
 
#7

Re: OnMouseWheel

  Alt 8. Okt 2006, 22:25
Das funktionniert leider auch nicht.
  Mit Zitat antworten Zitat
Benutzerbild von alias5000
alias5000

Registriert seit: 10. Sep 2005
Ort: Heilbronn
268 Beiträge
 
#8

Re: OnMouseWheel

  Alt 8. Okt 2006, 23:29
Woran hängts?
Im Interesse der Purierung des germanischen Ideoms ist es opertum den immensen Usus peregrieder Verben auf ein Minimum zu reduzieren.
--> www.lanchat2.de <---
  Mit Zitat antworten Zitat
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#9

Re: OnMouseWheel

  Alt 8. Okt 2006, 23:55
hab das bei mir (delphi 3) auch mal probiert...

Delphi-Quellcode:
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
    procedure WheelMessage(var Msg: TMsg); message WM_MOUSEWHEEL;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if msg.message=WM_MOUSEWHEEL then
    showmessage('Ja');
end;

procedure TForm1.WheelMessage(var Msg: TMsg);
begin
  Showmessage('Ja');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//application.OnMessage:=AppMessage;
end;
über die normale Nachrichten-Abfrage (WheelMessage) wird keine Messagebox angezeigt.
die 2. Variante über Application.OnMessage funktioniert dagegen... (scheinbar wird die message nicht ans Form geschickt sondern nur an die Anwendung)

HTH Frank
  Mit Zitat antworten Zitat
gengler2

Registriert seit: 18. Okt 2005
Ort: Remich
18 Beiträge
 
#10

Re: OnMouseWheel

  Alt 9. Okt 2006, 22:08
Das funktionniert auch. Habe vergessen zu sagen dass es sich um eine Memo Feld von den LMD Komponenten handelt. Ich kann abfragen ob am Mausrad gedreht wurde, jedoch weiss ich nicht wie ich in dem Memo Feld scrolle.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz