Verschiedene Controls an Procedur übergeben

[Guido Eisenbeis]

Ich benutze Lazarus im {$mode delphi} für Win 32.

Es geht um eine Routine, der ein Control übergeben wird und dann einige Eigenschaften benutzt und geändert werden. Die wichtigsten Eigenschaften sind "Canvas", "(Show)Hint" und "Caption".

Der Routine sollen bei verschiedenen Aufrufen auch verschiedene Controls übergeben werden. Beispiel:

Delphi-Quellcode:

  // Prozedur-Kopf
  procedure TForm1.SetShortenedText(ACtrlWithCanvas: T-???; AText: string);


  // Aufruf-Beispiel
  SetShortenedText(Label1, 'Mein Text');
  SetShortenedText(Panel1, 'Mein Text');

Allerdings kriege ich den Typ für "ACtrlWithCanvas" nicht hin. Benutze ich TControl meckert der Compiler über "dies", nehme ich TGraphicsControl meckert er über "das". Wie kann man das lösen, so dass ich ein beliebiges Control (mit Canvas) übergeben kann, ohne die Routine mit zusätzlichen Übergabe-Parametern aufzublähen?

Guido.

Edit: Das Problem konnte nicht auf direktem Weg gelöst werden. Ein Workaround wird in diesem Thread behandelt.

[Bernhard Geyer]

TControl und dann per RTTI schauen ob es die Properties gibt um auf diese Zuzugreifen.
Die nötigen Funktion finden sich hierbei in der Unit Types.
Ob du auf Canvas damit kommst könnte evtl. nicht möglich sein da die RTTI nur für published-Properties den Zugriff ermöglicht.
Aber falls Lazarus auch die erweiterte RTTI schon kann könntest du schauen ob du darüber den Zugriff hin bekommst.

[himitsu]

Mn kann auch schauen wo diese Eigenschafften eingeführt wurden und nimmt dieses als Basistyp für den Parameter.

Da Caption aber z.B. schon recht früh vorhanden war, allerdings protected und man demnach eigentlich nicht ran kommt,
kann man diesen Typen dennoch nehmen und macht sich das Property sichtbar, über eine eigene Zugriffsklasse oder man castet einfach in "irgendwas", wo es endlich sichtbar ist.


Die neue RTTI würde ja auf nahezu alles zugreifen können, aber die vom 2006/TDE ist noch etwas "älter".

[Bernhard Geyer]

Zitat von himitsu:

... aber die vom 2006/TDE ist noch etwas "älter".

Er nimmt für dieses Anwendungsfall Lazarus:

Zitat:

Ich benutze Lazarus im {$mode delphi} für Win 32.

[ConnorMcLeod]

Im Falle der Caption: if AControl is TWinControl then TWinControl(AControl).Perform(WM_SETTEXT, ...

[DeddyH]

Ein Label hat auch eine Caption und ist garantiert kein TWinControl.

[ConnorMcLeod]

Dann musst Du's eben im else-Zweig etwas langwieriger über RTTI behandeln.

[Guido Eisenbeis]

Zitat von DeddyH:

Ein Label hat auch eine Caption und ist garantiert kein TWinControl.

Richtig. (Hab ich gerade hierbei erfahren müssen.)

Zitat von Bernhard Geyer:

TControl und dann per RTTI schauen ob es die Properties gibt um auf diese Zuzugreifen.

So, jetzt isses passiert: Ich gehör zum alten Eisen und bin eingerostet! Die RTTI kenne ich nicht (hab's aber gerade auf Wikipedia nachgescehen) und stehe auf dem Schlauch. Kannst du das mal anders erklären? Meinst du, ich soll nachsehen, ob das übergebene TControl die Eigenschaften Canvas, Hint, Caption, ... hat? Und dann?

Und vielleicht noch eine kleine Erklärung zu der RTTI in Umgangssprache (also für Doofe wie mich )? Wie benutzt man die? "If AControl is ..." oder so?

Guido.

[JamesTKirk]

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

Zitat von himitsu:

Da Caption aber z.B. schon recht früh vorhanden war, allerdings protected und man demnach eigentlich nicht ran kommt,
kann man diesen Typen dennoch nehmen und macht sich das Property sichtbar, über eine eigene Zugriffsklasse oder man castet einfach in "irgendwas", wo es endlich sichtbar ist.

In der LCL ist Caption bereits in TControl public . Also kann dieses schonmal mit Hilfe von TControl verarbeitet werden.

ShowHint und Hint sind ebenfalls bereits in TControl zugreifbar, also bleibt nur noch Canvas .

@Guido: Ich empfehle dir also das folgende: Nimm als Parametertyp TControl , dann solltest du schonmal auf Caption , Hint und ShowHint zugreifen können.
Für das Canvas empfehle ich dir das folgende:

Delphi-Quellcode:

var
  thecanvas: TCanvas;
begin
  // Sachen mit Caption und (Show)Hint machen
  ...
  // jetzt den Canvas ermitteln, falls möglich
  if ACtrlWithCanvas is TCustomControl then
    thecanvas := TCustomControl(ACtrlWithCanvas).Canvas
  else
  if ACtrlWithCanvas is TGraphicControl then
    thecanvas := TGraphicControl(ACtrlWithCanvas).Canvas
  else
    (* wir wissen nicht, ob das Control einen Canvas hat 
     * (das könnte man jetzt mit RTTI austesten, aber ich 
     * brech hier einfac mal ab)
     *)
    Exit;
  // verwende "thecanvas" um auf den Canvas zuzugreifen
end;

is dient übrigens dazu, um herauszufinden ob eine Objektinstanz von einer bestimmten Klasse abgeleitet ist. Zum Beispiel ist someobj is TObject für jede Objektinstanz wahr.

Gruß,
Sven

[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.