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
Nerden
İş/Hobiler
Lakap
Salı Ara. 08, 2009 4:34 pm