Mausrad verwenden?

[TheDarkListener]

@dizzy
Dagegen spricht nur das ich den Befehl nicht kenne mit dem ich die Scrollbar verändern kann!!!! Und am liebsten hätte ich das halt wenn das automatisch geht!

[fkerber]

Hi!

Versuch mal das hier:

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Form1.ScrollInView(Form1);
end;

Ciao fkerber

[TheDarkListener]

Das geht net da kommt immer folgende Fehlermeldung: [Error] Unit1.pas(27): Undeclared identifier: 'FormMouseWheel'

[Matze]

Du darfst auch nicht einfach den Code-Abschnitt reinkopieren.

Klicke doppelt auf dieses Ereignis im OI und füge dann nur noch

Form1.ScrollInView(Form1); ein.

[Markus K.]

Hattest du den Quelltext nur kopiert?
Du musst es bei dem onMouseWheel Ereignis der Form eintragen.

Tschüß Markus

[dizzy]

Zitat von Markus K.:

Hattest du den Quelltext nur kopiert?
Du musst es bei dem onMouseWheel Ereignis der Form eintragen.

... und dir vielleicht mal ein paar Grundlagen zu Delphi antun...

[TheDarkListener]

Also bei mir steht jetzt folgendes:

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Form1.ScrollInView(Form1);

end;

und es klappt immer noch nicht! Könnte es an meiner USB-Maus liegen?

[Matze]

Nein

[fkerber]

Hi!

Also du musst folgendermaßen vorgehen (zum Testen).

Neue Anwendung-->Richedit (oder was anderes "Großes") draufziehen-->Form klein ziehen (sodass sie Scrollbars hat)-->Im Objektinspektor auf das Feld neben OnMouseWheel doppelklicken (wenn Form1 ausgwählt ist) und dann dort folgendes eingeben:

Form1.ScrollInView(Form1); Dann kompilieren und testen.

Ciao fkerber

[Markus K.]

Funktioniert das scrollen mit der Maus in anderen Programmen? z.B. Word,...