Hallo Nico,
der neue Code ist viel cooler, den würd ich auch besser verstehen, mein Compiler tut das aber nicht.
Ich hab jetzt meine Komponente total auf Minimaltestversion abgespeckt, und der
vollständige Code steht unten: Alles was die Kompo soll ist beim Mauslaufradwheelen eine Botschaft rausgeben ... aber nix und wiedernix! Hast Du noch eine Ahnung was da faul sein kann?
Delphi-Quellcode:
unit MZBlatt_TEST1;
interface
uses
Classes, ExtCtrls, WinTypes, Dialogs;
type
TZeichenBlatt_TEST1 =
class(TImage)
private
protected
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;
override;
public
constructor Create(aOwner: TComponent);
override;
published
property OnMouseWheel;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Test', [TZeichenBlatt_TEST1]);
end;
constructor TZeichenBlatt_TEST1.Create(aOwner: TComponent);
begin
inherited create(aOwner);
end;
function TZeichenBlatt_TEST1.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean;
begin
ShowMessage('
Vorher: DräDichDräDichRäädchen');
Result :=
inherited DoMouseWheel(Shift, WheelDelta, MousePos);
ShowMessage('
Nacher: HasteDichGutGeräätMeinRäädchen');
end;
end.
Der Schneck
verreckt
