Komponente (?) an Funktion übergeben

[DeddyH]

Zitat von Eknoes:

Dann kann aber das ganze ja nur Ampel1 sein, ...

Wie kommst Du denn darauf? Du kannst dort alles übergeben, was von TAmpel abstammt.

[Jacques Murell]

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

[Eknoes]

Achso. Ja super, dankeschön! Ging echt schnell ^^

lg