Fantastisch,
das klappt alles.
Will das nun in eine Funktion packen.
Welche deklaration muss ich für Componenten nehmen ? Als Componente soll mal DBGrid mal ComboBox mal was anderes ... rein.
Delphi-Quellcode:
function Komponenten_ermitteln(Form:TForm; Komponente: ???):String;
var
I: integer;
Wert: String;
begin
For I := 0 to Form.ComponentCount - 1 do
begin
if Form.Components[I] is Komponente then
begin
Wert := Wert + Form.Components[I].Name + #13#10;
end;
end;
Result := Wert;
end;
Gruss
Holger