Timage Nesnesini Runtime (çalışma anında) da yerini değiştirmeyi öğrenelim.

Yeni bir proje açalım.

Delphi 7 için: File -> New -> Application

Delphi 2007: File -> New -> VCL Froms Application - Delphi For Win32

1 - ) Şimdi form üzerine bir ader Additional sekmesinden Timage nesnesi ekleyin.

2 - ) Programınızın kod yazma ekranına gelin ve aşağıdaki gibi iki global değişkenimizi tanımlayalım..

var
Form1: TForm1; // in altına
imgSol,imgUst : integer;  // iki adet integer değişkenimizi tanımladık...

3 - ) Şimdi Timage nesnemize form üzerinde bir kere tıklayalım ve Object Inspector'dan Events sekmesinde bulunan Onmousedown olayına çift tıklayalım ve proceredure'ümüz oluşsun... Begin ve end bloğu arasına aşağıdaki kodu yazalım:

 if Button = mbleft then begin
    imgSol:=X;
    imgUst:=Y;
end;

OnMouseMove olayına da aşağıdaki kodu yazalım

   if ssLeft in Shift then begin
    Image1.Left:=Image1.Left+(X-imgSol);
    Image1.Top:=Image1.Top+(Y-imgUst);
    end;

Şimdi programımızı çalıştıralım ve image nesnemizi oynatabiliriz.

Not: Timage nesnesine picture properties ından resim yüklemeyi unutmayın ;)