Vielen, vielen Dank.
Es funktioniert (wie auch nicht anders zu erwarten
)
EDIT: Geht das auch mit Prozeduren?
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
BildKlick(1,0,0);
Image1.Picture.LoadFromFile('bilder\'+IntToStr(i)+'.jpg');
Etwas dergleichen habe ich auch 30 mal derzeit in dem Programm stehen.
Du solltest evnt die Methode umschreiben.
Ich weiß nicht ob es jetzt eine saubere Lösung ist oder ob es noch besser geht, aber du könntest den Sender im Bezug auf die Tag Eigenschaft benutzten.
Delphi-Quellcode:
case (Sender as TButton).Tag of
0: choice := 0;
1: choice := 1;
2: choice := 2;
3: choice := 3;
end;