wie kann man das vereinfachen?

[Nachbar22]

Kann ich folgende Zeilen irgendwie vereinfachen, das ich nicht für jedes Bild einzeln eine Prozedur schreiben muss?

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile(...);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Image2.Picture.LoadFromFile(...);
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile(...);
end;

[NicoDE]

Delphi-Quellcode:

procedure TForm1.ImageClick(Sender: TObject);
begin
  Sender.Picture.LoadFromFile(...);
end;

ImageClick dann allen x Images zuweisen.

[Nightshade]

Delphi-Quellcode:

procedure TForm1.ImageClick(Sender: TObject);
begin
  if Sender is TImage then
    TImage(Sender).Picture.LoadFromFile(...);
end;

TObject kennt kein Picture....

[Neg]

Nico, muss man Sender nicht noch nach TImage casten?

Edit: Da war jemand schneller... :mrgreen:

[Tyrael Y.]

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
begin
   with Sender as TImage do
   begin
     Sender.Picture.LoadFromFile();
   end; 
end;

[NicoDE]

Zitat:

Zitat von Neg

Nico, muss man Sender nicht noch nach TImage casten?

Sicher, es geht eher um dass Prinzip :D
(...) gibt es in der Delphi Language auch nicht ;)