Übergabe eines Objekts an Prozedur/Funktion

[relocate]

Servus,

ich möchte ein Objekt an eine Prozedur/Funktion übergeben und damit dort weiter arbeiten.
Um auf ein Objekt zugreifen zu können muss mit is und as umgewandelt (gecastet) werden,
es könnte aber alles mögliche an Objekten kommen (Label, Buttons, Forms, etc.) , die nur
via Handle weiterbearbeitet werden sollen. Ein Zugriff scheint ohne Umwandlung aber nicht
möglich. Wie kann man nun auf ein beliebiges Objekt zugreifen ohne alle Möglichkeiten überprüfen
zu müssen, wie gesagt, es wird lediglich der Handle benötigt, den ja jedes Objekt hat.
Delphi Version 6.

Gruß relocate

[Tryer]

Die Objekte mit Handle sollten wohl alle von TWinControl abstammen, das wäre also ein gemeinsamer Vorfahre mit dem du ohne casten auskommst.

Grüsse, Dirk

[himitsu]

Prüfte und caste alles auf TComponentsTWinControl, oder irgendeinen anderen gemeinsamen Vorfahren, welcher das Handle zugänglich macht.

[edit] wo kommt denn Tryers Beitrag plötlich her
aber mit TWinControl könnte er Recht haben TWinControl

[Bernhard Geyer]

Stichwort RTTI. Mit den Funktionen aus der TypeInfo.pas-Unit kannst du aus Properties von Objekten zugreifen ohne auf ihren Typ zu casten. Machte die Delphi-IDE bzw. VCL auch im großen Maße.

[Tryer]

RTTI ist ntürlich sehr mächtig, wäre hier aber imo die Lösung mit dem Vorschlaghammer.
TWinControl ist als die Basisklasse definiert in der Windows - Fensterobjekte (Handle) eingeführt werden. Per RTTI könnte ich herausfinden das es vielleicht auch noch irgendwo ein TPersistent gibt das auch eine Eigenschaft Handle hat, aber ob das dann wirklich ein gültiges Fensterhandle ist kann ich nur durch Try&Error herausfinden (TBitmap.Handle, THandleStream..).

Grüsse, Dirk

[relocate]

Danke für die Tipps, werde das mit den TwinControls mal probieren und
wenn das nicht ausreicht mit dem Vorschlaghammer arbeiten.

Gruß relocate

[Medium]

Dann aber Vorsicht mit "Handle"-Properties von Objekten, die nicht von TWinControl abstammen - wie Tryer schon sagte. TBitmap.Handle ist z.B. ein HDC, kein HWnd, und kann demnach auch nicht wie ein solches mit den Fenster-APIs be-/verarbeitet werden. Was "Handle" heisst, muss nicht zwangsweise ein Fensterhandle sein, da gibt's mehrere. Mit TWinControl bist du da auf der sicheren Seite. Oder du musst dann via RTTI den Typ noch prüfen, und ggf. noch bei Windows nachfragen, da ich problemlos ein HWnd Property machen könnte, in dem einfach mal Murks liegt, von dem Windows gornüscht weiss.

[implementation]

Zitat von Medium:

Was "Handle" heisst, muss nicht zwangsweise ein Fensterhandle sein, da gibt's mehrere. ... Oder du musst dann via RTTI den Typ noch prüfen, und ggf. noch bei Windows nachfragen, ...

IsWindow könnte dann evtl. helfen.

[Tryer]

Zitat von implementation:

IsWindow könnte dann evtl. helfen.

Mit Betonung auf "könnte", muß nämlich nicht. Der Wert des Handles ist genauso eindeutig wie der Index eines Strings in einer TStringlist - im falschen Kontext (einer anderen Liste) kann etwas ganz anderes (ebenfalls existierendes) dahinter stecken.
Dann wäre die Aussage nur: ja, es gibt auch ein Fenster mit diesem Handle - nur ob du dich für dieses Fenster wirklich interessierst kann dir niemand sagen.
Das Handle ist dann auch nur der Griff zum wegschmeissen.

Grüsse, Dirk