Alle Controls mit FOR-IN durchlaufen?

[mirage228]

Hi,

bei der Controls Eigenschaft von TForm gibt es keine Möglichkeit diese mit einer for..in Schleife zu durchlaufen, da es sich um eine Array-Property handelt. (Controls.pas, Z. 1462).

Aber, vielleicht geht es ja so:

Delphi-Quellcode:

var
  Control: TComponent;
begin
  for Control in Self do
    if Control is TSpeedButton then
      TSpeedButton(Control).Glyph := nil;

mfG
mirage228