Neue Komponete mit Canvas, KeyPress und Click....

[Der_Ventilator]

HI

Ich hab die Suchfunktion genutzt, das hat mir aber nit wirklich weitergeholfen; also:

Ich möchte eine neue Komponente entwickeln.
Diese Komponente benötigt folgendes:

- Sie muss den Fokus erhalten können und dann auf Tastendrücke reagieren können
- Sie benötigt eine Zeichenfläche
- Sie muss auf Mausklicke (Links, Rechts, Doppelt) und MouseMove/Enter reagieren können


Es wird eine Art Listbox, die etwas schöner aussehen soll (z.B die Darstellungsart und die Scrollbars)

Von welcher Komponente muss ich die ableiten?

Ich hab das mit TScrollingWinControl probiert, aber das funktioniert nicht mit der Vererbung des entsprechenden Events:

[Warnung] : Methode 'KeyDown' verbirgt virtuelle Methode vom Basistyp 'TWinControl'

Delphi-Quellcode:

type
  TGLKeyDownEvent = procedure (Sender: TObject; var Key: Word;
                    Shift: TShiftState) of object;

type
  TScrollingWinControl1 = class(TScrollingWinControl)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
   property OnKeyDown : TSliKeyDownEvent read FOnKeyDown write FOnKeyDown;
  end;


implementation

   
procedure TGl.KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  If Assigned(FOnKeyDown) then
    FOnKeyDown(self, Key, Shift);
end;

Wie muss ich das abändern, dass es wie beschrieben funktioniert?

Ich hab von Verebung nicht viel Ahnung, mein bescheidenes Wissen kommt aus dem wenig hilfreichen Doberez Delphi 7 Grundlagen und Profiwissen.

Vielen Dank im Voraus.