Verschiedene Controls an Procedur übergeben

[JamesTKirk]

Zitat von DeddyH:

Ich hatte blöderweise nicht auf den Thread, sondern auf einen einzelnen Beitrag verlinkt. Das Gegenstück findet man am Ende des Threads. Das erspart dann die ganzen "is"-Abfragen.

Normalerweise wird Canvas aber nicht als public gekennzeichnet...

Zitat von Guido Eisenbeis:

Zitat von JamesTKirk:

Du hast zwar zwischenzeitlich bereits geantwortet, aber vielleicht hilft dir das trotzdem weiter:

Ja, auf jeden Fall. Deine Idee ist sehr "praktisch-orientiert", sprich: macht Nägel mit Köpfen, und stellt das dar, was ich als "Workaround" ansehen würde. Das wäre auch mein Ansatz, wenn uns nichts "besseres" einfällt (und ein guter!).

Ich sehe meinen Ansatz nicht als Workaround, sondern als (eine) korrekte Lösung an, die ohne irgendwelche "wir-leiten-die-Klasse-ab-und-machen-Canvas-public"-Aktionen (wie DeddyH es in seinem Code gemacht hat) auskommt. Letzteres sehe ich(!) nämlich als Workaround und "unsauber" an.
Eine wirklich saubere Lösung mit der RTTI wird erst möglich sein, wenn Free Pascal auch die erweiterte RTTI von Delphi 2009+ unterstützt (was noch etwas dauern kann...).

Zitat von Guido Eisenbeis:

Aber noch gebe ich die Hoffnung nicht auf. Was ich will ist möglichst kein Workaround, sondern eine Möglichkeit ein geziehltes TypCast durchzuführen. Das was himitsu geschrieben hat, zielt in die richtige Richtung. Das hatte ich allerdings schon probiert, bevor ich hier gepostet habe (siehe auch meinen ersten Beitrag). Leider habe ich keinen Klassentyp gefunden, mit dem auf alle benötigten Eigenschaften zugegriffen werden kann.

Wie gesagt: Nimm TControl , dann kannst du auf Caption , Hint und ShowHint zugreifen. Die Canvas -Property musst du dann anders ermitteln und darauf hoffen, dass du keinem Control begegnest, dass nicht von TCustomControl oder TGraphicControl abgeleitest ist, aber trotzdem eine Canvas -Property besitzt (ansonsten musst du halt des if anpassen...).

Zitat von Guido Eisenbeis:

@Sven (JamesTKirk)

In deinem Posting #11 hat sich ein Schreibfehler in den Code eingeschlichen: In der zweiten If-Abfrage fehlt beim zweiten "TGraphicControl" das "h". Das haben wohl die Klingonen geklaut!?

Dies pöhsen Klingonen aber auch... man kann ihnen nicht trauen!
Danke, werd's korrigieren.

Gruß,
Sven

[Guido Eisenbeis]

Zitat von JamesTKirk:

Du hast zwar zwischenzeitlich bereits geantwortet, aber vielleicht hilft dir das trotzdem weiter:

Ja, auf jeden Fall. Deine Idee ist sehr "praktisch-orientiert", sprich: macht Nägel mit Köpfen, und stellt das dar, was ich als "Workaround" ansehen würde. Das wäre auch mein Ansatz, wenn uns nichts "besseres" einfällt (und ein guter!).

Aber noch gebe ich die Hoffnung nicht auf. Was ich will ist möglichst kein Workaround, sondern eine Möglichkeit ein geziehltes TypCast durchzuführen. Das was himitsu geschrieben hat, zielt in die richtige Richtung. Das hatte ich allerdings schon probiert, bevor ich hier gepostet habe (siehe auch meinen ersten Beitrag). Leider habe ich keinen Klassentyp gefunden, mit dem auf alle benötigten Eigenschaften zugegriffen werden kann.

Aber mit eurer Hilfe bin ich nun auf die Idee gekommen, die Klasse von ACrtlWithCanvas auszulesen. Genauer gesagt, brint das Auslesen der Klasse noch nicht ganz eine Lösung. Am besten sollte (vielleicht mit dem von Detlef vorgeschlagenen "GetPropInfo") eine Instanz zurück gegeben werden, mit der ein gezielter TypCast durchgeführt werden kann.

Wie kann ich denn Zumindest die Klasse (also den Namen) von ACtrl... auslesen? Hab's mit der Funktion von Detlef probiert und 'Class', 'ClassType' und 'CassName' eingegeben, doch ohne Erfolg.

Und noch mal kurz auf die RTTI: Ist das mit "GetPropInfo" usw. die RTTI? Falls nicht, wo finde ich denn Infos darüber (wenn's geht nicht so hochtrabende, sondern welche, die ich auch verstehe)?

Guido.


Nachtrag: Detlef hat gerade einen weiteren Beitrag gepostet und ich lese mich nun durch den Thread durch. Kann noch ein wenig dauern, sieht interessant aus, aber ich schicke nun diesen Beitrag erst mal ab, und lese dann dort in Ruhe.

[Guido Eisenbeis]

Ok, hab den Thread durchgelesen und zitiere mal was auch bei mir als Problem bleibt:

Zitat von miLeRiAm:

Das Problem bleibt bestehen, dass ich in Delphi (bisher) keine Möglichkeit gefunden habe, Klassen dynamisch zuzuweisen, z.B. so:

TClass('TLabel').Caption
oder
TClass(comp.ClassName).Caption

Ideen?

Der dortige Thread-Ersteller konnte zwar sein Problem "lösen", aber nur weil er Glück hatte, dass er keine anderen Klassenmember benötigte. In meinem Fall kann ich nicht einfach ein "CompSetCaption" machen. Der Knackpunkt ist "Canvas" und noch genauer "Canvas.TextWidth".

Das heißt, außer auf die Eigenschaften von ACtrl... muss ich auch noch auf die Methode "Canvas.TextWidth" zugreifen können. Weitere Ideen?

Guido.