Scrollbox, Paintbox und auf Scrollrad reagieren

[Touchdown]

Zu meinem Problem:
Ich habe eine Scrollbox auf einem Formular, auf diesem lege ich eine dynamisch erzeugte Instanz einer Paintbox. Die Paintbox wird gefüllt und die Scrollbox macht was man von ihr erwartet.

Technisch sieht es in etwa so aus:

Delphi-Quellcode:

Paintbox := TPaintBox.Create (self);
Paintbox.OnClick := ScrollBox1.OnClick;
ScrollBox1.ControlStyle := ScrollBox1.ControlStyle + [csAcceptsControls];
Paintbox.Parent := ScrollBox1;
Paintbox.Align := alClient;

Was mich allerdings noch stört ist, es wird nicht auf mein Maus-Scrollrad reagiert.

Im Onclick setze ich einfach den Focus auf die Scrollbox und habe eigentlich erwartet, dass es dann funktionieren würde. Dem ist aber nicht so!

[eddy]

Hallo Touchdown,

probier' mal, ob Dir das weiterhilft:

Delphi-Quellcode:

program BrwRun;
// ....
begin
  Application.Initialize;

  {eingefügt:
   läßt Scroll-Rad in DBGrid richtig funktionieren }
  Application.OnMessage := FBrwRun.AppMessage;
  // ....
end;

//------------------------------------------------------------------------

unit BrwRun1;
  // .... 
  public
    { Public-Deklarationen }
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
  // ....


procedure TFBrwRun.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
  i : smallint;
begin
  if Msg.message = WM_MOUSEWHEEL then begin
    Msg.message := WM_KEYDOWN;
    Msg.lParam := 0;
    i := HiWord(Msg.wParam);
    if i > 0 then Msg.wParam := VK_UP
             else Msg.wParam := VK_DOWN;
    Handled := false;
  end;
end;

In TDBGrid, TListBox und TComboBox wirkt's.

mfg
eddy

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Touchdown]

Vielen Dank Eddy für deine Hilfe, ich suche aber noch etwas nach einer lokalen Lösung, ich fürchte ein wenig um die Performance meines Projektes (ziemlich groß ist).

[eddy]

Hallo Touchdown,

hast Du das mit der Performance mal getestet? Aufgrund der Verarbeitung von Msg sollte diese eigentlich nicht in den Keller gehen, zumindest nicht auf aktueller Computertechnik (irgendetwas ab 2000 MHz).

Vielleicht kann uns ja einer der Moderatoren dazu einen Tip geben.

mfg
eddy

[Sharky]

Zitat von eddy:

...Vielleicht kann uns ja einer der Moderatoren dazu einen Tip geben....

Hai eddy,

nur als Anmerkung. Der "Titel" Moderator hat nichts damit zu tun wie gut einer Coden kann bzw. wie gut er sich mit Delphi auskennt.
Wenn dem so währe würde ich nicht dabei sein.

In diesem Fall sollten wir mal einen der API-Profis fragen. Die wissen da sicher mehr drüber.