componentlerin form üzerinde yer değiştirmasi

[sako]

Arkadaşlar şimdi bi bozyap gibi bişi yapacam. Fakat bi problem var.
25 tane image ile yapıyorum bu işi. cliclediğim imagenin sağında bir başka image varsa sağa gitmeyecek solunda verse sola gitmeyecek vs..
Bu işlemi
if Timage(FindComponent('image'+IntToStr(i))).left<>image1.left-image1.width then begin
image1.left:=image1.left-image1.width
end;

gibi bi komut ile yapmaya çalışıyorum ama çalışmıyor. Bunun daha mantıklı ve makul olan bi yöntemi varmı acaba.

kolay gelsin

[aslangeri]

S.A.
şöyle bir mantık kullanılabilirmi acaba.
imagelar 5X5 duruyorsa 5X5 bi dizi tanımlayıp dizideki değerlere göre işlemi yaptır. imageların her hareketinde dizideki değerleri de değiştirirsin.

Kod: Tümünü seç

 map:array[1..5,1..5]of byte;

daha sonra bu diziye değerleri atabilirsini

Kod: Tümünü seç

map[1,1]:=1;
map[1,2]:=2;
...

gibi
burda mapa vereceğin değerler için 1 veya 0 1 se resim var 0 sa resim yok olabilir yada işi biraz daha abartıp 0 sa resim yok 1 se 1 numaralı resim var 5 se 5 numaralı resim var gibi hangi resmin hangi an nerde olduğunu tutan bi hale de getirebilirsin.
Not: Resimleri sürükle bırak ile değilde önce düğme ile sağa sola taşıyıp o şekilde sorunsuz çalıştıktan sonra onu sürükle bıraka uygun hale getirirsen daha kolay olur sanırım. Adım adım ilerlemek.....
kolay gelsin.