Eigenschaft vorhanden?

[LoL]

Hi
Ich laufe alle Komponenten auf meinem Form durch. Nun will ich wenn die Komponente beispielsweise die Eigenschaft "Caption" hat dieser Caption etwas zuweisen.
In diesem Thread steht was von

IsPublishedProp(FindControl(Handle), Property) then aber dazu brauch ich ja das Handel und das hab ich nicht. Weis einer Rat?

[marabu]

Hallo Christoph,

du hast doch das Control schon - warum willst du noch FindControl(Handle) aufrufen?

Grüße vom marabu

[LoL]

Ja aber wenn ich alle Komponenten durchlaufe weis ich ja nicht "was es ist". Da aber From1.Components TComponent zurückliefert weis ich ja nicht ob die Komponente Caption hat.

[jim_raynor]

Und Was erwartet der erste parameter von IsPublishedProp? Bestimmt TComponent oder ein Vorfahre. Also funktionierts doch ganz einfach:

Delphi-Quellcode:

for i:=0 to ComponentCount-1
begin
  if IsPublishedProp(Components[i], 'Caption') then
end;

[TeronG]

also wenn du nur bei bestimmten Objecten was ändern wills könntest du das so machen :

Delphi-Quellcode:

  for I:=0 to ComponentCount-1 do
    if Components[I] is Tedit then
      (Components[i] as Tedit).Text := 'irgendwas';

wenn du bei allen Objecten die ein Caption haben was machen möchtest hab ich keine Idee (atm ^^)

[LoL]

Argh ich weis nicht was ich da für Problem hatte . Irgendwie aufm Schlach gestanden
@TeronG: Das hatte ich auch schonmal aber da ich sehr viele unterschiedliche Komponenten habe die Caption haben würde meine "If Komponente = Klasse"-Liste ziemlich lang werden. Es funktioniert zwar ist aber nicht schön.

TComponent hat die Eigenschaft Caption ja nicht. Deshalb geht dann ja Components[0].Caption nicht.
Wie kann ich nun "gewaltsam" Caption aufrufen?

[marabu]

Delphi-Quellcode:

var
  i: integer;
  c: TComponent;
begin
  for i := 0 to ComponentCount - 1 do begin
    c := Components[i];
    if IsPublishedProp(c, 'Caption') then
      SetStrProp(c, 'Caption', 'OK');
  end;
end;

marabu

[LoL]

Wunderbar
Das ist genau das was ich gesucht habe.
Dank euch für eure schnelle Hilfe ging ja mal wieder echt flott