Hintergrundfarbe einer Unit über einen andere Unit ändern

[Codehunter]

Zitat von DeddyH:

über alle Forms (nicht Units) Deines Projekts kannst Du mit TScreen.Forms bzw. TScreen.FormCount iterieren.

Na komm, ein var hättest du ruhig mitgeben können. Das machts für den Einstieg einfacher ^^

Delphi-Quellcode:

var 
  i: Integer;
  TheForm: TForm;
begin
  for i := 0 to Screen.FormCount - 1 do
  begin
    TheForm := Screen.Forms[i];
    TheForm.MachWas;
  end;
end;