Wie can ich überprüfen ob keine image in ScrollBox ist ?

[Luckie]

Merk es dir einfach, wenn du ein Bild in der Scrollbox anzeigst.

[s.h.a.r.k]

Oder du suchst dynamisch "in" der Eigenschaft ScrollBox.Components nach einer TImage-Komponenten. Hier der Ansatz, der aber nicht rekursiv funktioniert:

Delphi-Quellcode:

var
  i : Integer;
  found : Integer;
begin
  found := 0;
  for i := 0 to ScrollBox1.ComponentCount - 1 do
  begin
    if (ScrollBox1.Components[i] is TImage) then
      Inc(found);
  end;

  if (found > 0) then
  begin

  end;
end;

Allerdings sei dazu gesagt, dass das nicht zu empfehlen ist und eher Luckies Ansatz genutzt werden sollte!

[mschaefer]

Bei meiner abgeleiteten TScrollbox hat es im ComponentCount bei mir immer 0.
Was habe ich denn da vergessen? rgendwas im Create ?

[rollstuhlfahrer]

Höchstwahrscheinlich stimmt der Owner nicht. Da hast du wohl die Form angegeben und nicht die Scrollbox. Also fühlt sich die Scrollbox auch nicht dafür zuständig. (Oder handelt es sich um fertig designte Forms??)

Bernhard

[mschaefer]

Hallo Bernhard,

das hätte ich jetzt auch vermutet und war etwas erstaunt, dass auch die normale Scrollbox keine Komponenten nimmt. Habe in einem leeren Formular ein TScrollBox geworfen und einne Button drüber gesemmelt. In meiner TScrollbox ist ComponentCount immer 0, egal was da drin liget.

Bei aufgelegtem Button zeigt dieser im Event, dass das Formular sein Owner ist, wie Du schon vermutet hast!.

[DeddyH]

Und bei ControlCount?

[himitsu]

Die VCL legt als Owner immer die Form fest, wenn eine Form aus der DFM geladen wird.

Das Andere ist der Parent ... ich würde mir eventuell mal ControlCount und Controls ansehn.

[mschaefer]

Merci !

Dank Euch bekomme ich doch jetzt meinen Sonntagstee.
In obigen Anbhang ist jetzt Version 1.1.

Das war es !