Komponenteninfos zur Laufzeit anzeigen?

[fillibuster]

Hallo,

ist es möglich Infos zu den verwendeten Komponenten wie in der IDE zur Laufzeit anzuzeigen?

Delphi-Quellcode:

  for i := 0 to ComponentCount - 1 do
  begin
    TComponent(Components[i]).Hint := TComponent(Components[i]).Name;
    TComponent(Components[i]).ShowHint := True;
  end;

TComponent hat wohl keine Hint Eigenschaft

Viele Grüße ...

[Bummi]

nimm TControl

[fillibuster]

so geht's

[shmia]

Und natürlich ControlCount anstelle von ComponentCountverwenden ansonsten macht's Bumm.
Und ausserdem muss sich die Prozedur rekursiv aufrufen:

Delphi-Quellcode:

procedure SetzeHintAufName(c:TControl);
var
  i:Integer;
begin
  c.Hint := c.Name;
  c.ShowHint := True;
  for i := 0 to c.ControlCount - 1 do
  begin
    SetzeHintAufName(c.Controls[i]);
  end; 
end;

[fillibuster]

Hi,

diesbezüglich noch eine kurze Frage: Ist es möglich zu testen, ob ein Control eine bestimmte Eigenschaft besitzt? (TLabel has property caption ...)

Viele Grüße ...

[Bummi]

Stichwort RTTI

[DeddyH]

Jepp, das geht mit RTTI.

[shmia]

Delphi-Quellcode:

uses ...,TypInfo;
...
var
  c : TComponent;
begin
  c := {irgendwas};
  if IsPublishedProp(c, 'Caption') then
    ShowMessage('Property Capion ='+GetStrProp(c, 'Caption'));

[fillibuster]

Danke

[stahli]

Nur noch zur Ergänzung: Mit der neuen RTTI ab D2010 kann man auch nicht veröffentlichte (also öffentliche und sogar private)Eigenschaften, Felder und Methoden eines Objektes ermitteln. Das ist allerdings etwas aufwendiger als o.g. Funktion.