Hallo,

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

markieren

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

nimm TControl

so geht's

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

zusammenfalten · markieren

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;

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

Stichwort RTTI

Jepp, das geht mit RTTI.

markieren

Delphi-Quellcode:

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

Danke

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.