(15-04-2017, Saat: 10:38)dnzmobile Adlı Kullanıcıdan Alıntı: Yazdığınız gibi dizi tanımlayarak kullanmaya çalışıyorum ama başaramadım, hata mesajı alıyorum.
type //tip tanımlama işlemini nerede yapacağım???
Resimler: array[0..10] of TImage
Kod yazdığınız Unit'in üst kısmında type bloğu başlangıcı vardır. Yeni tip tanımlamalarını orada yazabilirsiniz.
Fakat siz sadece formunuz üzerinde bulunan Image'lar üzerinde gezinecek bir yöntem arıyorsanız
barutali'nin paylaştığı yöntem daha kolay olabilir sizin için.
Image'larınızın hepsi aynı TPanel vs. üzerinde ise tüm form elemanlarının olduğu döngü yerine örneğin Panel1 üzerindeki bileşenler arasında arama yapabilirsiniz ;
for I := 0 to Panel1.ComponentCount -1 do
begin
if Panel1.Components[I].ClassType = TImage then
TImage(Panel1.Components[I]).Visible := False;
end;
Ayrıca Image'ları form üzerine koyduktan sonra Tag değişkenlerini kullanarak her Image'a istediğiniz numarayı atayarak daha sonra ayrıştırma yapabilirsiniz. İstediğiniz Tag'a ait Image'ı bulabilmek için şöyle bir fonksiyon kullanılabilir(Aradığınız Image'ların hepsinin Panel1 üzerinde olduğunu farzediyorum):
function GetImageByTag(TagNo: Integer): TImage;
var I: Integer;
begin
Result := Nil;
for I := 0 to Panel1.ComponentCount -1 do
begin
if Panel1.Components[I] is TImage then
if TImage(Panel1.Components[I]).Tag = TagNo then
begin
Result := TImage(Panel1.Components[I])
Break;
end;
end;
end;