Form'umuza ilk önce Bir image(DBImage'de olabilir),3 tane TrackBar ve 3 Tane Label Bileşeni Koyuyoruz,Form'umuzun OnCreate Olayına;
Kod: Tümünü seç
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.AutoSize:=false;
TrackBar1.Max:=1000;
TrackBar2.Max:=1000;
TrackBar3.Max:=275;
end;
Yukarıdaki Kod'u ekliyoruz,;TrackBarların Karşısındaki Rakamlar ;Form'un içinde Bir TrackBar'ın değerinin, Maximum ilerliyeceği Rakamlardır.(Bu Tamamen sizin elinizde).Sonra TrackBarları image'nin etrafına,konumuna göre yerleştiriyoruz.1.nci TrackBar'ı Yükseklik olarak kullanalım;Properties,Orientationdan,Dikey çeviriyoruz;ve.OnChange Olayına Aşağıdaki Kod'u ekliyoruz;
Kod: Tümünü seç
Image1.Height:=TrackBar1.Position;
Label1.Caption:=IntToStr(TrackBar1.Position);//Yükseklik Koordinat ayarla
Yurıdaki Kod image'nin Yükseklik Koordinatlarını ayarlar.
2.TrackBar imagenin Sağa ve Sola hareketinin koordinatlarını ayarlar.;TrackBar2.nin OnChange olayına;
Kod: Tümünü seç
Image1.Left:=TrackBar2.Position;
Label2.Caption:=IntToStr(TrackBar2.Position);//Sağa ve Sola Koordinat ayarla
Ekliyoruz.
3.TrackBar'da imagenin genişliğini ayarlar;TrackBar3.Onchange olayına;
Kod: Tümünü seç
Image1.Width:=TrackBar3.Position;
Label3.Caption:=IntToStr(TrackBar3.Position);//Genişlik Koordinat ayarla
atadıktan sonra labelleri TrackBarların uygun yerine yerleştiriyoruz;imagenin hareketini rakamlarla gösterecektir. vee...artık formumuzu çalıştırdığımızda image,içine atayacağımız resimle zumlanıp,hareket edecektir. Hatam olduysa af ola ....iyi çalışmalar.