Find alle TButton

Kan ikke huske det helt nøjagtigt men det er noget:

for I := 0 to Form1.Components-1 do

.. nej jeg kan ikke huske det lige nu, svarer når jeg kommer hjem, hvis der er ikke er andre der har hjulpet dig ...

for Cnt := 0 to ComponentCount-1 do
if Component[Cnt] is TButton then
  (Components[Cnt] as TButton).Font := <NyFont>

/Martin

en lille tyrk-fejl :

for Cnt := 0 to ComponentCount-1 do
if Components[Cnt] is TButton then
  (Components[Cnt] as TButton).Font := <NyFont>

Tak for det, jeg kunne ikke lige komme på..

Jeg er som nogenlunde enig, dog ville jeg lave den sidste linie lidt anderledes:

for I := 0 to ComponentCount-1 do
  if( Components[I] is TButton ) then
    TButton(Components[I]).Font := <NyFont>;

men i principettet er det jo det samme !!

Både ja og nej, AS er en safe type cast og din både \"hård og brutal\"

/Martin