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.