Verwendete Objekte einer Form herausfinden

[Niko]

Hi,

lass deiner Prozedur das Formular mit dem sie arbeitet als Parameter übergeben. Dann kannst du über die Eigenschaft Components des Formulars nach TShellTreeView und TShellListView suchen.

Etwa so:

Delphi-Quellcode:

procedure MachWasMitShellViews(Frm: TForm);
var
  i: Integer;
  s: String;
begin
  for i := 0 to Frm.ComponentCount - 1 do
    if Frm.Components[i] is TShellListView then
    begin
      s := (Frm.Components[i] as TShellListView).Name;  // Namen der ShellListView auslesen
    end
    else if Frm.Components[i] is TShellTreeView then
    begin
      s := (Frm.Components[i] as TShellTreeView).Name;  // Namen der ShellTreeView auslesen
    end;
end;