Verwendete Objekte einer Form herausfinden

[sieppl]

Hallo,

ich habe mal eine Newbie-Frage:
Ich möchte eine Unit bauen, die auf verschiedenen Forms eingesetzt werden soll. In der Unit gibt es Funktionen, die TShellTreeView und TShellLIstView beeinflussen sollen.
Wie kann ich nun von dieser Unit aus feststellen, ob die beiden TSHell* eingebunden sind und mit welchem Namen sie instanziíert wurden? Komme ich um das Basteln einer Komponente herum?
Gibt es dafür globale Variablen?
Danke!

Sebastian

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