Fotoğraf Görüntüleyici

[TescilsizUzman]

Her Image nesnesinin OnClick olayı vardır. Kodu bu olaya yazmanız yeterli olacaktır. 
Tüm Image'lar için ortak bir metod (Event) düşünüyorsanız;
Image nesnesinin OnClick olayına aşağıdaki kodu yazıp, diğer Image'lerin de OnClick olayında bu Image'in OnClick olayını seçmeniz yeterli olacaktır.

procedure TForm1.Image2Click(Sender: TObject);
begin
 if Sender is TImage then
   ShowMessage(TImage(Sender).Name + ' Tıklandı');
end;

---

Dinamik oluşturduğunuz Image nesnelerinin OnClick olayını yakalamak için ortak bir metod yazıp, Image'i create ettiğiniz yerde olayını da atamanız gerekiyor.

  private
    procedure ImageOrtakClick(Sender: TObject);
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ImageOrtakClick(Sender: TObject);
begin
 if Sender is TImage then
   ShowMessage(TImage(Sender).Name + ' Tıklandı');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 yeniImage: TImage;
begin
 yeniImage := TImage.Create(Nil);
 yeniImage.OnClick := ImageOrtakClick;
end;