Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by shmia,
26. Apr 2011
uses ...,TypInfo;
...
var
c : TComponent;
begin
c := {irgendwas};
if IsPublishedProp(c, 'Caption') then
ShowMessage('Property Capion ='+GetStrProp(c, 'Caption'));
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by shmia,
26. Apr 2011
Und natürlich ControlCount anstelle von ComponentCountverwenden ansonsten macht's Bumm.
Und ausserdem muss sich die Prozedur rekursiv aufrufen:
procedure SetzeHintAufName(c:TControl);
var
i:Integer;
begin
c.Hint := c.Name;
c.ShowHint := True;
for i := 0 to c.ControlCount - 1 do
begin