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

[thomas2009]

Hi

Wie kann ich überprüfen, ob keine image in ScrollBox gibt ?

[wicht]

Hi

in meine TListBox geht nur Text.

[thomas2009]

ops, ich meine in ScrollBox und nicht in ListBox. sorry

[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 ?