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

Delphi-Quellcode:

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 :wall: . Irgendwie aufm Schlach gestanden :wink:
@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 :thumb:
Das ist genau das was ich gesucht habe.
Dank euch für eure schnelle Hilfe ging ja mal wieder echt flott :wink: