Eigenes OnMouseDown

[Thorben_Ko]

Hallo, es ist zum verrückt werden.

Ich bastel an einer Komponente und steh greade auf dem schlauch.

Ich vererbe von TPaintBox, und möchte das OnMouseDown event erweitern.

Bei OnClick hab ich rausgefunden ist das kein probleme

Delphi-Quellcode:

  TFarbFeld = class(TPaintBox)
  private
    FRowCount: LongInt;
    FColCount: LongInt;
    fError : TFarbFeldError;
    fItems : TFieldArray;
    fLoaded : Boolean;
    FLienenColor: TColor;
    procedure OnClick;
    procedure SetLienenColor(const Value: TColor);
    function GetItem(x, y: Integer): TFIeld;
    procedure SetItem(x, y: Integer; const Value: TFIeld);
    procedure SetColCount(const Value: LongInt);
    procedure SetRowCount(const Value: LongInt);
  protected
    procedure Clear;
    procedure FieldsCreate;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    procedure Paint; override;
    procedure Click; override;
    procedure MouseDown; override;
    property RowCount : LongInt read FRowCount write SetRowCount;
    property ColCount: LongInt read FColCount write SetColCount;
    property Item[x,y : LongInt] : TFIeld read GetItem write SetItem;
    property LienenColor :TColor read FLienenColor write SetLienenColor;
  published

  end;


implementation

{ TFarbFeld }

procedure TFarbFeld.Click;
begin
  inherited Click;
  ShowMessage('Click');
end;


procedure TFarbFeld.MouseDown;
begin
  inherited MouseDown;
  
end;

procedure TFarbFeld.OnClick;
begin
  inherited OnClick;
  ShowMessage('Click');
end;

Das Probleme ist nur das er mir erstens sagt das sich die Deklarationen von MouseDOwn sich unterscheiden, und ich nicht weiss wie ich die parameter von MouseDown zugreifen kann.

Hoffe jemand kann mir helfen

Thoreben