Hamsterlaufrad ääh Mauslaufrad

[NicoDE]

Zitat von Schneck:

ich glaub, ich muss aufgeben

Jetzt schon ?-)

Hast Du denn schon...

Delphi-Quellcode:

type
  TZeichenblatt = class(TImage)
  private
    procedure WMMouseWheel(var Message: TWMMouseWheel);
      message = WM_MOUSEWHEEL;
    procedure CMMouseWheel(var Message: TCMMouseWheel);
      message = CM_MOUSEWHEEL;
  //...
  end;

//...

procedure TZeichenBlatt.WMMouseWheel(var Message: TWMMouseWheel);
begin
  with TMessage(Message) do
  begin
    TCMMouseWheel(Message).ShiftState := KeysToShiftState(Message.Keys);
    Result := Perform(CM_MOUSEWHEEL, WParam, LParam);
  end;
end;

procedure TZeichenBlatt.CMMouseWheel(var Message: TCMMouseWheel);
begin
  //...
end;

...probiert?