Compiler erkennt TControl.PopupMenu nicht

[mirage228]

Naja wenn Du es inline in der Methode machst...

Delphi-Quellcode:

procedure WhatEver;

  type
    TControlAccess = class(TControl)
    public
      property PopupMenu: ....;
    end;

var
  Control: TControl;
begin
  TControlAccess(Control).PopupMenu := ...;
end;

Alternativ könnte man doch die Eigenschaft über RTTI versuchen abzugreifen...

Viele Grüße

[uligerhardt]

Zitat von hoika:

ja dein Compiler sagt das, meiner noch nicht (D6)

Na, das ist ja schwach.

Zitat von hoika:

Wie soll das mit dem THackControl denn laufen,
wenn es auch von TControl abgeleitet ist ?
Es sei denn, du machst das property PopupMenu noch public.

Nö, das ist ja der Trick. Das:

Delphi-Quellcode:

type
  THACK_Control = class(TControl);

ist die komplette Typdefinition - keine Member, Property-Redeklarationen oder sonstwas.
Jetzt hast du eine Klasse in der aktuellen Unit - und innerhalb einer Unit beschränkt protected den Zugriff nicht - im Gegensatz zu "strict protected". D.h das Member PopupMenu von THACK_Control ist in der aktuellen Unit de facto public. Und wegen der einfach gestrickten Definition von THACK_Control ist ein TControl auch (fast ) ein THACK_Control, also geht auch der Cast i.O.

Zitat von hoika:

Das gefällt mir aber gar nicht ...

Da ist nichts wirklich Gefährliches dran. Der Entwickler von TControl hat ja schon entschieden, dass er dir die Möglichkeit des Zugriffs auf PopupMenu gibt, indem er es protected gemacht hat.

[uligerhardt]

Zitat von mirage228:

Delphi-Quellcode:

procedure WhatEver;

  type
    TControlAccess = class(TControl)
    public
      property PopupMenu: ....;
    end;

var
  Control: TControl;
begin
  TControlAccess(Control).PopupMenu := ...;
end;

Ob du

Delphi-Quellcode:

type
  THACK_Control = class(TControl);

oder

Delphi-Quellcode:

type
  THACK_Control = class(TControl)
  public
    property PopupMenu;
  end;

schreibst, macht null Unterschied.

Zitat von mirage228:

Alternativ könnte man doch die Eigenschaft über RTTI versuchen abzugreifen...

Das würde vermutlich funktionieren, wäre aber mit Kanonen auf Spatzen geschossen - sowohl vom Codieren als auch von der Laufzeit her.

[mirage228]

Ja an das mit den "class friends" innerhalb einer Unit habe ich nicht gedacht, da sind unsere Lösungen natürlich völlig equivalent.

Also ich würde wohl bei dem selben Vorhaben wohl auch nicht RTTI nehmen, wollte das aber auch nicht ungenannt lassen...

[hoika]

Hallo,

friend class, stimmt
Netter Trick.

Kenne mich mit Delphi nicht so aus


Heiko

[uligerhardt]

Zitat von mirage228:

Ja an das mit den "class friends" innerhalb einer Unit habe ich nicht gedacht, da sind unsere Lösungen natürlich völlig equivalent.

Jo. 8)

Zitat von mirage228:

Also ich würde wohl bei dem selben Vorhaben wohl auch nicht RTTI nehmen, wollte das aber auch nicht ungenannt lassen...

Für etwas schwierigere Fälle ist das auch der gangbarere Weg.

Zitat von hoika:

Kenne mich mit Delphi nicht so aus

Man lernt nie aus.