Ist bestimmt nicht perfekt, aber es würde funktionieren.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i := 0 to ComponentCount-1 do
begin
if (Components[i] is TMemo) then (Components[i] as TMemo).ScrollBars := ssNone;
//hier weitere Objekte hinzufügen
end;
end;
und soviel verschiedene Objekte mit ScrollBars werden es wohl nicht sein.
Konnte auch mal auf die Eigenschaften aller Objekte direkt überprüfen, habe es allerdings nicht mehr im Kopf wie das war.
Uwe