Aber das ist doch so okay, oder?
Delphi-Quellcode:
type
TTreemapChart = class (TGraphicControl);
public
procedure MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); override;
implementation
procedure TTreemapChart.MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
...
end;