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:

Delphi-Quellcode:

[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

Delphi-Quellcode:

Form1.ScrollInView(Form1);

ein.

[Markus K.]

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

Tschüß Markus

[dizzy]

Zitat:

Zitat von Markus K.

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

... und dir vielleicht mal ein paar Grundlagen zu Delphi antun... :roll: :zwinker:

[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:

Delphi-Quellcode:

Form1.ScrollInView(Form1);

Dann kompilieren und testen.

Ciao fkerber

[Markus K.]

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