Timage Nesnesini Runtime (Çalışma anında) da Yerini değiştirmek

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

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 ;)
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git