Maus Scrollen im StringGrid

[Piro]

Moin

ich arbeit mit Delphi 3.

Situation: Füher habe ich mit Delphi 6 gearbeitet und meine Programme bzw. mein StringGrid hat auf das Mausrad
reagiert und man konnte scrollen. Jetzt bei Delphi 3 passiert nichts beim Betätigen des Scrollrades.

Frage: Woran kann das liegen?

Ich hoffe einer von Euch kann mir helfen.

Danke.

Sven

[OLLI_T]

HY Sven!

Weil es zu dem Zeitpunkt, als Delphi 3 das Licht der Welt erblickte, noch keine WM_MOUSEWHEEL Message gab. Somit wurde die Geschichte auch nicht mit in TStringGrid bzw. TWinControl mit implementiert.

Warum arbeistet Du nicht mehr mit Delphi 6. Oder planst du etwa schon den Umstieg zu Delphi 1???

Viele Grüsse

OLLI

[Piro]

ich brauchte eine Professionell Version. Und da bot sich Delphi 3 am besten an.

Ich würde ja gerne auf 6 Prof oder sogar D7 Prof upgraden aber das ist ganz so einfach und billig. Hast du eventuell einen Tip?

Ansonsten Danke für deine schnelle Antwort.

[eddy]

Hallo daywalker299,

ich weiß zwar nicht, ob der nachfolgende Code in Version 3 funktioniert, aber Du kannst es ja mal probieren.

Code:

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;

mfg
eddy