Scrollen mal anders...

[blackschof]

Hallo liebe Delphi-Community!

Ihr alle kennt sicher die Programme Itunes, Lightroom oder wenn ihr Mac besitzt ist das sowiso nichts neues für euch. Ich spreche vom Scrollverhalten dieser Programme... Man kann ganz einfach irgendwo scrollen, ohne zuerst auf das gewünschte Element zu klicken. Meistens muss man klicken und dann scrollen, hingegen wäre dieses "andere" verhalten ganz einfach "darüberfahren und scrollen".
Ich bin schon lange auf der Suche und hab auch selber ein wenig rumprobiert, aber bin zu keinem Schluss gekommen.
Hat jemand von euch schon so etwas programmiert bzw weis jemand wie das zu realisieren wäre?

Vielen Dank im voraus
blackschof

[SirThornberry]

könntest du für alle die es nicht kennen dieses scrollen beschreiben? vielleicht kann dir dann jemand helfen

[lbccaleb]

hy, und willkommen in der dp!!

was genau willst du denn scrollen??

wenn du für selbiges element vllt schon eine scroll bar hast, kannst du die mauscoordinaten abfragen und die umwandeln in prozent des bildschirms, und danach dann deine scrollbar positionieren..

mfg

[Aurelius]

Versuch es doch mal so dass du im onMouseHover (onMouseOver) die Position des Mauszeigers auf der Scrollbar abfragst und dann die Position manuell ausrechnest und setzt (KA ob das funktioniert, ist eben nur eine Überlegung ^^)

[angos]

Hi,

nicht so kompliziert leute er möchte doch anscheinend nur automatisch den fokus auf das element setzen, wo er mit der maus drüber fährt, also hilft wohl das hier:

Am beispiel einer checklistbox: Einfach das Ereginis OnMouseMove beschreiben mit folgendem Code:

Delphi-Quellcode:

procedure TForm1.clbBeispielChecklistBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not clbBeispielChecklistBox.Focused then
    clbBeispielChecklistBox.SetFocus;
end;

// EDIT
// Mit dieser leichten Änderung kannst du eine Funktion für alle WinControls nutzen
procedure TForm1.AutofocusMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Sender is TWinControl then
    if not TWinControl(Sender).Focused then
      TWinControl(Sender).SetFocus;
end;

PS Willkommen in der

[blackschof]

Danke an allen für die schnelle Hilfe!

@angos: danke, ich werde es gleich mal probiern!

@all: Das Scrollverfahren unterscheidet sich indem man ein beliebiges scrollbares Element (Scrollbar, Grid, ...) scrollen kann ohne zuerst darauf klicken zu müssen, sondern einfach mit der Maus darüberfährt (dann wird der Focus gesetzt(?)) und man kann das Element scrollen. Ich weiß nicht wie ich es besser beschreiben kann.

[Delphi Star]

Meinst du es zufällig so, wie in dem Beispiel im Anhang?
Ist allerdings nicht besonders sauber gelöst, soll ja schnell gehen.
Ich habe einfach die Mausposition abgefragt und auf die Scrollbar übertragen.

[dominikkv]

Zitat von Delphi Star:

Meinst du es zufällig so, wie in dem Beispiel im Anhang?

Wahrscheinlich nein.
Er will einfach nur ganz normal jenes Control scrollen können (mit dem Scrollrad an der Maus) über dem sich die Maus befindet, und nicht das welches gerade den Fokus hat.

Ich glaube mich sogar zu erinnern das man das in Windows einstellem kann?

[blackschof]

Mmh nein leider funktioniert alles nicht... Ich versuche das Problem erneut zu beschreiben.

http://www.blacksheep-online.net/beispiel.jpg

Also das Beispiel besteht aus einer Form mit zwei Lists und wie ihr sehen könnt, ist der Focus auf die rechte gesetzt. Nun möchte ich in der linken List scrollen können, indem ich mit der Maus darüberfahre und das Scrollrad betätige OHNE, wie gewöhnlich, zuerst auf die List zu klicken um überhaupt scrollen zu können. Könnt ihr es jetzt verstehen?

Danke nochmal.

mfg blackschof