---

Hej.

Jeg har lige et par få spørgsmål.

Kan man få en funktion til at gennemløbe hele sit projekt (dvs. alle
forms/units), om der er komponenter af en bestemt type og så give dem alle
en fælles egenskab.

Er det i øvrigt muligt at lave forms, der ikke er kantede. Fx en oval form
eller lignende med runde hjørner.?

---

"Museumsmedarbejderen" <Industrimuseet> skrev i en meddelelse
news:43da7646$0$7637$ba624c82@nntp02.dk.telia.net...
> Hej.
>
> Jeg har lige et par få spørgsmål.
>
> Kan man få en funktion til at gennemløbe hele sit projekt (dvs. alle
> forms/units), om der er komponenter af en bestemt type og så give dem alle
> en fælles egenskab.

Ja for at gennemløbe alle forms kan du gøre sådan:
var
i : integer;
begin
for i:=0 to Application.ComponentCount-1 do
if Application.Components[i] is TForm then
showmessage((Application.Components[i] as TForm).Caption);
end;

for hver enkelt form kan så bruge ControlCount og Controls[] til at lave en
rekursiv procedure der gennemløber alt på formen.

/HK