Geerbte Eigenschaften (Grafik) als published deklarieren

Aus RAD Studio
Wechseln zu: Navigation, Suche

Nach oben zu Stift und Pinsel als published deklarieren

Wenn Sie einen Komponententyp ableiten, können Sie entscheiden, welche der in der Vorfahrenklasse als protected deklarierten Eigenschaften und Ereignisse Sie in der neuen Komponente zur Verfügung stellen wollen. TGraphicControl deklariert bereits alle Eigenschaften als published, die für grafische Komponenten typisch sind. Sie brauchen daher nur noch Reaktionen auf Mausereignisse und Drag&Drop-Funktionen bereitzustellen.

Wie geerbte Eigenschaften und Ereignisse als published deklariert werden, erfahren Sie unter Geerbte Eigenschaften als published deklarieren und Ereignisse sichtbar machen. In beiden Fällen werden einfach die Namen der Eigenschaften im published-Abschnitt der Klassendeklaration redeklariert.

Bei unserer neuen Komponente sind dies die drei Mausereignisse, die drei Drag&Drop-Ereignisse und die beiden Drag&Drop-Eigenschaften:



 type
   TSampleShape = class(TGraphicControl)
   published
     property DragCursor;        { Drag&Drop-Eigenschaften }
     property DragMode;
     property OnDragDrop;        { Drag&Drop-Ereignisse }
     property OnDragOver;
     property OnEndDrag;
     property OnMouseDown;       { Mausereignisse }
     property OnMouseMove;
     property OnMouseUp;
   end;



 class PACKAGE TSampleShape : public TGraphicControl
 {
 private:
 __published:
     __property DragCursor ;
     __property DragMode ;
     __property OnDragDrop ;
     __property OnDragOver ;
     __property OnEndDrag ;
     __property OnMouseDown ;
     __property OnMouseMove ;
     __property OnMouseUp ;
 };



Die Benutzer der Beispielkomponente können nun Maus- und Drag&Drop-Operationen durchführen.