Gewusst wie: überschreiben einer geerbten Immobilie?

Eigenschaft Getter und setter können virtuell sein, und dann außer Kraft gesetzt, durch die Erben von Klassen, siehe unten das Beispiel aktualisiert. Es gibt eine Einschränkung mit du Beispiel-code, und Sie versuchen, ändern Sie den Typ der Eigenschaft, die nicht erlaubt ist. Ich würde Ihnen raten, schauen Sie für Value is TExItems im TExMyClass.SetItems aber verwenden Sie die geerbte Eigenschaft Items und cast zu TExItems in allen Methoden der TExMyClass und weitere Erben.

TItems = class;

TMyClass = class(TComponent)
private
   FItems: TItems;
   procedure SetItems(const Value: TItems); virtual;
protected
  property Items: TItems read FItems write SetItems;
end;

TExItems = class(TItems)
private
  FNewProb: Integer;
protected

public

published
  property NewProp: Integer read FNewProb write FNewProb;
end;

TExMyClass = class(TMyClass)
private
   procedure SetItems(const Value: TItems); override;
end;

InformationsquelleAutor Stijn Sanders

Können Sie implementieren und überschreiben die Methoden getItem und setItem;

Implementieren Eigenschaft Item nur für TMyClass

property Items: TItems read getItems write setItemps;

Für TMyClass:

public:  
function getItems : TItems; virtual;
procedure setItems(items: TItems); virtual;

Für TExMyClass:

public:
function getItems : TItems; override;
procedure setItems(items: TItems); override;

function TExMyClass.getItems : TItems;
begin
  result := fItems;
end;

procedure TExMyClass.setItems(items : TItems);
begin
  self.itmes := items;
end;

so, TExMyClass.Elemente.className = TExItems !

InformationsquelleAutor TheHorse

Ist es das gleiche problem wie der Versuch, mehr als ein TMemo, verwendet die gleichen Linien-Objekt.

Seit TCustomMemo delcares auf seine private Abschnitt FLines: TStrings; ist es nicht möglich, mehr als ein TMemo, verwendet die gleichen FLines.

Nur so (weiß ich noch) zu arbeiten, ist die vollständig duplizieren die ganze TCustomMemo Klasse als TLinkedCustomMemo, aber die Definition FLines: TStrings; auf den öffentlichen Bereich; müssen auch das Klonen der "TMemo", sondern verweisen auf TLinkedCustomMemo, nicht TCustomMemo

Dann mit dem hack von delcaring TMemo=class(TLinkedMemo) Sie haben den Zugang der öffentlichkeit zu FLines, so können Sie ersetzen das Objekt, mit dem Objekt der main TMemo, auf den ganzen rest verknüpfte memos.

Warum ein solcher Link auf die Inhalte der TMemos?
Einfache Antwort könnte sein: mehr als ein TMemo, zeigt den gleichen text, so dass Benutzer können sehen (und Bearbeiten) von zwei (oder mehr) verschiedenen teilen zu einer Zeit, wie einige Tabellen zu tun... es in der Regel auch um eine horizontale splitter zwischen Ihnen, die Synchronisierung horizontale scrollbars, etc.

Manchmal tut etwas, das scheint so einfach, es ist wirklich so kompliziert!
Nur verursacht durch fehlerhafte VCL-design.

Für die Stichprobe der TMemos... warum in der Hölle Sie nicht definiert wurden seine Linien-Eigenschaft basierend auf TStringList insead von TStrings? So konnten wir das gleiche String-Liste für mehr als ein TMemo zur gleichen Zeit.

Wenn Sie wollen, um zu sehen, wie intern ist abhängiger darauf, wie... suchen für Klasse TMemoStrings (es erscheint auf der implementation-Abschnitt von StdCtrls). Warum muss es nur ein TMemo?, und warum muss es überhaupt? warum nicht hatte TStringList-Objekt verwendet, anstatt alle, dass die Hölle?

Wenn manche Klassen sind so geschlossen... es kommt der hacken Weg, deklarieren von Klassen... aber wie ändern Sie nur eine Eigenschaft eines Steuerelements, ohne dass ganze duplizieren einige Klassen (nur so wenig ändern sich die Dinge)?

Oh, ja, eine real-life-Beispiel für eine content-verknüpftes memo sein könnte:

• Lassen die Benutzer sehen können (gleichzeitig) zwei verschiedene Teile einer text-Datei, ohne doppelten Speicher
• Oder besser Beispiel: der Benutzer Bearbeiten möchte ein Wort der Zeile 3 und ein weiterer auf Linie zehn Millionen, ohne die Notwendigkeit zu scrollen

Setzen Sie also zwei TMemo und link, die Linien-Eigenschaft, so dass Benutzer die Steuerelemente zum Bearbeiten solcher Linien Eigentum (an verschiedenen Punkten) von beiden memo-ohne scrollen zu müssen) nach unten und bis in alle Zeiten.

Anderes Beispiel:

• Benutzer Bearbeiten möchte Linien eins bis eine million plus zwanzig, muss aber sehen, Linien, die zehn bis zwanzig gleichzeitig.
• Dass die memos, die mit einem copy ist nicht möglich, mehr als 3GiB RAM auf einem 32Bit Windows (nicht erlaubt), jedes Memo müssten >1.6 GB ram... usw.
• Duplizieren diese Daten ist weder eine option, Benutzer Bearbeiten, die auf dem zweiten memo, aber Erstens muss man auf sync... so nach Locker Fokus (oder nur nach Bearbeiten, wenn Sie möchten, eine gute der Suche) müssen Sie kopieren alle Daten, die form einer um den anderen, memos... Rechenzeit?
  -etc

Gibt es so viel Proben... und die wichtigsten sind diejenigen, die ich nicht verstehen.

Also die Beantwortung Ihrer Frage in allgemeiner form, "how to hack a-Klasse, um es ein wenig modifizieren":

1. Klon den code, der die Klasse definiert wird, in eine neue Einheit, die rufen, dass die Einheit etwas, dass klar ist es für das Klonen, die Klasse mit einigen änderungen
2. Verwenden der gleichen Klasse Namen nur, wenn Sie Ihre änderungen wäre rückwärts compatile (wie bei additg zu TEdid die Align-Eigenschaft, verwenden Sie das hack deklarieren es als TTheClass=class(TheUnit.TTheClass)), sonst verwenden Sie einen anderen Namen
3. Solche neue Einheit am Ende des uses von interface Abschnitt

Ist es... einfach zu sagen, die harte Arbeit zu tun, auf einige Fälle.

Ich immer empfehlen nes-Klassen-Namen, außer, wie auf der Probe hinzufügen Alignment - Eigenschaft, um ein TEdit.

Wenn Sie das hack Erklärung? Wenn Sie eine volle Anwendung der bereits codiert und wollen Sie auf hinzufügen, um alle TEdit es auf die Ausrichtung... insetead erstellen Sie eine neue Komponente hinzufügen Komponente tools, neu definieren Sie alle Formulare nicht verwenden :TEdit; und verwenden :TMyAlignedEdit... Sie können einfach hinzufügen, verwendet Ihr Gerät und voila... alle TEdit haben jetzt solche Eigenschaft und IDE inspertor auch sieht es, etc.

InformationsquelleAutor Claudio