Info über Programm / Controls

[jaenicke]

Zitat von Redeemer:

Gibt es Programme dieser Art, mit denen ich TLabel auslesen kann? WinSpy und X-Spy können das wohl nicht.

TLabel ist kein Windows Control, so dass es kein Handle hat und für solche Tools nicht sichtbar ist. Ein TLabel kann z.B. TestComplete trotzdem auslesen, aber das geht nicht über Windows Funktionen, sondern es macht sich dafür die Interna von Delphi zu nutze, wenn es eine in Delphi geschriebene Anwendung erkennt.

[himitsu]

jupp, TStaticText ist die eigentliche Windows-Variante des TLabel.

Alle TGraphicControl sind für Windows nicht existent, da sie sich nur auf den Canvas ihres Parents "draufmalen".
TLabel, TImage uvm.

[knochen]

Gibt es denn eine derartige Komponente o.ä., das ich in ein Delphi Programm einbauen kann? Was ich eigentlich brauche, sind nicht Info über beliebige Programme, sondern über mein Delphiprogramm, das gerade läuft. Es ist historisch gewachsen und sehr komplex und umfangreich. Und es enthält viele Formulare, die einander sehr ähneln. Wenn ich die Möglichkeit hätte, bei Klick auf die Form oder auf Controls deren Namen zu erfahren, würde mir das beim Auffinden der jeweiligen Unit helfen.

[dummzeuch]

Zitat von knochen:

Gibt es denn eine derartige Komponente o.ä., das ich in ein Delphi Programm einbauen kann

Ich meine mich dunkel zu erinnern, dass es sowas mal gab - ich würde auf 1990er oder frühe 2000er Jahre tippen - aber die Erinnerung ist zu dunkel und Google keine Hilfe.

Im Prinzip wäre es gar nicht so schwierig, sowas zu schreiben, denn jedes Formular ist in Screem.Forms aufgelistet, sobald es erzeugt wurde. Mittels der Controls / Components arrays und ein bisschen RTTI kommt man dann an die Komponenten und deren Properties. Nichts anderes machen die diversen Delphi IDE Explorer, die es gibt. Mit neueren Delphi-Versionen kann man sogar die Unit ermitteln, in der ein Formular deklariert wird. Ach ja: Mittels Screen.ActiveForm kann man ermitteln, welches das aktuelle Formular ist und sogar mittels Screen.ActiveControl, welches Control den Fokus hat.

Aber ich glaube nicht, dass sich noch jemand die Mühe machen wird, sowas neu zu entwickeln und evtl. zu verkaufen, denn der Markt für Delphi ist einfach inzwischen zu klein geworden. Die einzige Hoffnung wäre, dass jemand sowas quasi schon für die interne Verwendung hat und es veröffentlicht.

Oder es nimmt jemand einen der o.g. Delphi IDE Explorer und passt ihn so an, dass er in ein beliebiges Programm eingebunden werden kann. Auch das wäre gar nicht so schwierig, es müsste nur jemand tun.

Wenn Du nur wissen willst, welches Formular gerade angezeigt wird:
Programm im Debugger laufen lassen und im Formular anhalten. Dann den Call Stack ansehen.

[himitsu]

Bei TestComplete kann man mal schauen.

normal gehen die auch über WindowsHandles, aber auch über Debuginfos und eventuell RTTI.
z.B. um bei DevExpressGrids an den Inhalt zu kommen, da es für Windows nur eine große Leinwand ist, wo die Columns/Rows/Zellen draufgemalt werden (abgesehn vom InEdit-Feld, welches als echtes Control über seine Zelle gelegt wird)

[knochen]

Danke euch, die Lösung mit Screen.ActiveForm funktioniert am besten für meine Zwecke. Mann, da hätte ich auch selbst drauf kommen können.

[Redeemer]

Zitat von knochen:

Gibt es denn eine derartige Komponente o.ä., das ich in ein Delphi Programm einbauen kann? Was ich eigentlich brauche, sind nicht Info über beliebige Programme, sondern über mein Delphiprogramm, das gerade läuft. Es ist historisch gewachsen und sehr komplex und umfangreich. Und es enthält viele Formulare, die einander sehr ähneln. Wenn ich die Möglichkeit hätte, bei Klick auf die Form oder auf Controls deren Namen zu erfahren, würde mir das beim Auffinden der jeweiligen Unit helfen.

In der TActionList einer immer vorhandenen Form (oder Vcl.Forms.TApplication.OnShortCut) einen Shortcut anzulegen, der einfach den Einzeiler ShowMessage(Application.ActiveForm.ClassName) ausführt, wäre zu einfach? Außerdem kann man Application.ActiveForm.Components iterieren und bei allen TControls darunter mit Vcl.Controls.TControl.BoundsRect.Contains(Vcl.Controls.TControl.ScreenToClient(Vcl.Controls.TMouse.CursorPos)) prüfen, es unter dem Mauszeiger ist.