Problem mit "Search"Funktion (Suche)

[soulies]

versuch mal

Delphi-Quellcode:

procedure TForm1.SearchClick(Sender: TObject);
var ...
    ...
    comp_anzahl : integer ;
begin
    for comp_anzahl:=0 to Form2.ComponentCount-1 do
    begin
      if (Form2.Component[comp_anzahl] is TListbox) and ((Form2.Component[comp_anzahl] as TListbox).Visible) then
      begin
        ...
      end;
    end;
end;

(ungetestet)

cya