eine Funktion für mehrere Objekte(Sender)??

[SimStar001]

Hallo,

ich nutze in meinem Programm 40 Images, die so ziemlich den Selben Code ausfürhen sollen.

Diesen habe ich soweit in eine Funktion gepackt und rufe diese dann über die einzelnen Images auf.

gibt es nun eine Möglichkeit, dass man eine einzige Funktion programmiert, die ich dann über die Images aufrufen kann?


Sprich, Sie sollte erkennen welches Image die Funktion gerade aufruft und dann entsprechen die Parameter definieren und den Restlichen Standartcode dann ausführen!


Wie genau geht das?


vielen Dank!

[Angel4585]

Sowas?

Delphi-Quellcode:

procedure SetImage(AImage : TImage);
begin
ShowMessage(AImage.Name);
end;

[SimStar001]

Wenn ich diesen Procedurenamen dann zum Beispiel bei OnImageClick eintragen kann, dann ist das genau das was ich suche! Vielen dank, werde es heute nachmittag gleich mal ausprobieren...


Danke

[DeddyH]

Mach es doch so:

Delphi-Quellcode:

procedure TDeinForm.Image1Click(Sender: TObject);
begin
  if (Sender is TImage) then
    ShowMessage(TImage(Sender).Name);
end;

Diese Methode kannst Du bequem per OI allen Images zuweisen.