Ändern der Klassenhierarchie

[sabbelstein]

:duck:

mmh sorry hab ich überlesen is wohl schon spät ;)

gibts irgendwie eine andere möglichkeit jeder componente ein attribut hinzuzufügen ohne die sourcen zu ändern?

[sakura]

Wenn Du auf .NET (und Delphi.NET) umsteigst, dann ja. Da wurde das von vornherein mit ins Konzept aufgenommen. Prominentestes Beispiel ist die ToolTip Komponente. In Delphi für Win32 leider: nein.

...:cat:...

[Shaman]

Hallo zusammen

Was ist mit dem is-Operator? Der bekommt die Änderung anscheinend nicht mit und funktioniert nicht mehr.

Ich will in einem Message-Handler folgendes realisieren:

Delphi-Quellcode:

begin
  if Self is TWinControl then
    with TWinControl(Self) do
    begin
       {...}
    end;
end;

Dabei ersetze ich den Vorfahren von TWinControl.

Gruss
Shaman

[alcaeus]

Zitat:

Zitat von Shaman

...Der bekommt die Änderung anscheinend nicht mit und funktioniert nicht mehr.

Ich will in einem Message-Handler folgendes realisieren:

Kannst du bitte mal sagen WAS nicht funktioniert und WIE sich das aeussert? Ausserdem, auf welcher Delphi-Version testest du das? Bei mir funktioniert is einwandfrei

Greetz
alcaeus

[Shaman]

Also, ich ersetze den Vorfahren von TWinControl (TControl) mit:

Delphi-Quellcode:

type
  TControlEx = class(TControl)
  private
    procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
    procedure WMSetText(var Msg: TWMSetText); message WM_SETTEXT;
  end;

In den Prozeduren möchte ich nun prüfen, ob Self ein TWinControl ist. Doch bei der is-Abfrage bringt er mir inkompatible Typen. Aber hab grad gemerkt, mit InheritsFrom scheints zu klappen...

Gruss
Shaman

[Robert_G]

Zitat:

Zitat von Shaman

In den Prozeduren möchte ich nun prüfen, ob Self ein TWinControl ist. Doch bei der is-Abfrage bringt er mir inkompatible Typen. Aber hab grad gemerkt, mit InheritsFrom scheints zu klappen...

Der IS Operator kann ja auch nicht wissen was du da zur Laufzeit machst. ;)

[Shaman]

Stimmt ja :wall:

Merci

[maximov]

Zitat:

Zitat von Robert_G

...
Der IS Operator kann ja auch nicht wissen was du da zur Laufzeit machst. ;)

wieso nicht ? Der Is-operator ist doch der laufzeit-klassenprüf-operator.

Delphi-Quellcode:

function _IsClass(Child: TObject; Parent: TClass): Boolean;
begin
  Result := (Child <> nil) and Child.InheritsFrom(Parent);
end;

[Robert_G]

Zitat:

Zitat von maximov

Zitat:

Zitat von Robert_G

...
Der IS Operator kann ja auch nicht wissen was du da zur Laufzeit machst. ;)

wieso nicht ? Der Is-operator ist doch der laufzeit-klassenprüf-operator.

Sicher. Trotzdem kann es beim Kompilieren knallen wenn es für den Compiler absolut unmöglich erscheint, dass A von B abgeleitet ist. ;)

Nachtrag:
Bevor die nächste Frage kommt. Einfach selbst testen ;)

Delphi-Quellcode:

type
   TBase = class
   end;

     T1stDescendant = class(TBase)
   end;

   T2ndDescendant = class(TBase)
   end;
   TComparedType = class(T2ndDescendant)
   end;

var
  X : TComparedType;
begin
   if X is TBase then
      Writeln('ist TBase'); // geht

   if X is T1stDescendant then
      Writeln('ist T1stDescendant'); // knallt
end.

[maximov]

Zitat:

Zitat von Robert_G

Zitat:

Zitat von maximov

Zitat:

Zitat von Robert_G

...
Der IS Operator kann ja auch nicht wissen was du da zur Laufzeit machst. ;)

wieso nicht ? Der Is-operator ist doch der laufzeit-klassenprüf-operator.

Sicher. Trotzdem kann es beim Kompilieren knallen wenn es für den Compiler absolut unmöglich erscheint, dass A von B abgeleitet ist. ;)

Nachtrag:
Bevor die nächste Frage kommt. Einfach selbst testen ;)
...

Da is der kompiler natürlich ein bisschen übereifrig - aber recht hatta ja. Wenn man es wirkt wissen will, dann muss man ihn halt täuschen:

Delphi-Quellcode:

...
var
  X : TComparedType;
begin
   if X is TBase then
      Writeln('ist TBase'); // geht

   if TObject(X) is T1stDescendant then
      Writeln('ist T1stDescendant'); // knallt
end.

Aber das führt zu nix, da man, wie schon gesagt wurde, gleich InheritsFrom benutzen kann. Gut das wir das geklärt haben :stupid: