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,...

[TheDarkListener]

@Markus K. ja ich kann in anderen Programmen scrollen!
Aber das klappt trotzdem net!

[fkerber]

Hi!

Also nur mal so zwischendurch:

Ich kann wenn ich ein Form mit Scrollleisten habe, auch mit meinem Mausrad scrollen, ohne diesen Code. Also ich denke es liegt an der Maus, nicht an Delphi.

Ciao fkerber

[Matze]

Ich kann dann nicht scrollen. :gruebel:

[fkerber]

Hi!

Also bei mir geht das.
Ich kann in jedem Fenster mit dem Mausrad scrollen, dass Scrollbars hat.

Ciao fkerber

[Markus K.]

Bei mir geht das genauso wie bei fkerber, brauche auch den code ned.

[Matze]

Achja, mit dem Code geht's bei mir auch nicht, aber ich hab eh keine solche überfüllten Forulare. :mrgreen:

[TheDarkListener]

Naja is jetzt auch egal mit den ScrollBars!