|
Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
Delphi 2010 Professional
|
Re: Funktion einem OnClick allen Komponenten eines Typs zuwe
18. Sep 2007, 18:44
Hallo zecke,
du brauchst nur die leeren Klammern zu entfernen:
(FindComponent('UpDown' + IntToStr(i)) as TUpDown).OnClick := UpDownSwitch;
Ich habe das überflüssige Form1 gleich mit entfernt. Das schafft nur Probleme, falls du mehrere Instanzen einer Formularklasse hast.
Was spricht eigentlich dagegen, alle UpDown-Controls im Designer zu markieren und ihnen dann eine gemeinsame Behandlungsroutine zuzuweisen?
Gruß Hawkeye
|