Zitat:
Ah, ok, danke. Dann kann aber das ganze ja nur Ampel1 sein, ich möchte ja aber auch Ampel1, Ampel2, usw. übergeben, weil das ja alles verschiedene Dinger sind, von denen ich die Farbe ändern möchte. Das würde ja so nicht gehen, oder?
Doch klar.
In etwa so:
Delphi-Quellcode:
procedure FaerbeAmpel(Ampel: TAmpel; Farbe: TColor);
begin
Ampel.Brush.Color := Farbe;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
FaerbeAmpel(Ampel1, clRed);
FaerbeAmpel(Ampel2, clGreen);
// etc
end