Hallo!
Ich habe es jetzt wie vorgeschlagen mit der MOUSEWHEEL Nachricht versucht. Als Test habe ich hierzu der Komponente ein Label hinzugefügt, dass je nach Nachricht beschriftet werden soll:
Delphi-Quellcode:
type
TMyComonent = class(TCustomPanel)
private
FScrollBox: TScrollBox;
FLabel: TLabel
procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL
public
constructor Create(AOwner: TComponent); override;
end;
...
procedure TMyComonent .WMMouseWheel(var Msg: TWMMouseWheel);
begin
FLabel.Caption := IntToStr(Msg.XPos);
end;
Reaktion: Keine.
Mach ich beim Empfang der Nachricht etwas falsch?