Görsellerin Sürüklenmesi

   Merhaba devremdeki boş yere görselleri sürükleyip kontrol et butonuna bastıktan sonra ampul yandı ya da yanmadı şeklinde uyarı vermesini istiyorum ama görsellerin hepsi aynı yere yukarı doğru sürükleniyor ve butona bastığımda doğru yerde olmamasına rağmen ampul yandı olarak gözüküyor sürüklemeyi doğru yapmama yardımcı olabilir misiniz?var
  MyForm: TclForm;
  DevrePanel: TCLProPanel;
  ImgBakirTel, DevreGorsel, ImgTahta, ImgCivi, ImgLastik: TCLImage;
  SecilenMalzeme: String; // Seçilen malzeme adını tutacak
  BtnKontrol: TCLProButton;

// Hareket fonksiyonları
void HareketEttirBakirTel;
{
  ImgBakirTel.Position.X = MyForm.clSenderMousePosX - 25;
  ImgBakirTel.Position.Y = MyForm.clSenderMousePosY - 25;
  SecilenMalzeme = 'BakirTel';
}

void HareketEttirTahta;
{
  ImgTahta.Position.X = MyForm.clSenderMousePosX - 25;
  ImgTahta.Position.Y = MyForm.clSenderMousePosY - 25;
  SecilenMalzeme = 'Tahta';
}

void HareketEttirCivi;
{
  ImgCivi.Position.X = MyForm.clSenderMousePosX - 25;
  ImgCivi.Position.Y = MyForm.clSenderMousePosY - 25;
  SecilenMalzeme = 'Civi';
}

void HareketEttirLastik;
{
  ImgLastik.Position.X = MyForm.clSenderMousePosX - 25;
  ImgLastik.Position.Y = MyForm.clSenderMousePosY - 25;
  SecilenMalzeme = 'Lastik';
}

// Kontrol butonu fonksiyonu
void KontrolEt;
{
  if (SecilenMalzeme == '')
  {
    ShowMessage('Önce bir malzeme sürükleyip devreye koymalısın.');
  }
  else if (SecilenMalzeme == 'BakirTel')
   {
    ShowMessage('Tebrikler! Devre tamamlandı ve ampul yandı! 💡');
  }
  else if (SecilenMalzeme == 'Civi')
  {
    ShowMessage('Tebrikler! Devre tamamlandı ve ampul yandı! 💡');
  }

  else if (SecilenMalzeme == 'Tahta')
  {
    ShowMessage('Devre tamamlanamadı, ampul yanmadı.');
  }
  else if (SecilenMalzeme == 'Lastik')
  {
  ShowMessage ('Devre tamamlanamadı, ampul yanmadı.');
  }
}

{
  MyForm = TclForm.Create(Self);
  SecilenMalzeme = ''; // Başlangıçta boş

  DevrePanel = MyForm.AddNewProPanel(MyForm, 'DevrePanel');
  DevrePanel.Align = alClient;
  DevrePanel.clProSettings.BackgroundColor = nil;
  DevrePanel.SetclProSettings(DevrePanel.clProSettings);

  // Devre görseli
  DevreGorsel = MyForm.AddNewImage(DevrePanel, 'DevreGorsel');
  DevreGorsel.Align = alClient;
  MyForm.SetImage(DevreGorsel, 'https://resmim.net/cdn/2025/07/21/XXnvec.jpg'); // açık devre görseli

  ImgBakirTel = MyForm.AddNewImage(DevrePanel, 'ImgBakirTel');
  ImgBakirTel.Align = alNone; 
  ImgBakirTel.Width = 50; 
  ImgBakirTel.Height = 50;
  ImgBakirTel.Position.X = 20; 
  ImgBakirTel.Position.Y = 100;
  MyForm.SetImage(ImgBakirTel, 'https://resmim.net/cdn/2025/07/21/XXGRK2.png');
  MyForm.AddNewEvent(ImgBakirTel, tbeOnMouseMove, 'HareketEttirBakirTel');

  ImgTahta = MyForm.AddNewImage(DevrePanel, 'ImgTahta');
  ImgTahta.Align = alNone; 
  ImgTahta.Width = 50;
  ImgTahta.Height = 50;
  ImgTahta.Position.X = 20; 
  ImgTahta.Position.Y = 200;
  MyForm.SetImage(ImgTahta, 'https://resmim.net/cdn/2025/07/21/XXGhWL.png');
  MyForm.AddNewEvent(ImgTahta, tbeOnMouseMove, 'HareketEttirTahta');

  ImgCivi = MyForm.AddNewImage(DevrePanel, 'ImgCivi');
  ImgCivi.Align = alNone; 
  ImgCivi.Width = 50;
  ImgCivi.Height = 50;
  ImgCivi.Position.X = 20;
  ImgCivi.Position.Y = 300;
  MyForm.SetImage(ImgCivi, 'https://resmim.net/cdn/2025/07/21/XXGpL7.png');
  MyForm.AddNewEvent(ImgCivi, tbeOnMouseMove, 'HareketEttirCivi');

  ImgLastik = MyForm.AddNewImage(DevrePanel, 'ImgLastik');
  ImgLastik.Align = alNone; 
  ImgLastik.Width = 50; 
  ImgLastik.Height = 50;
  ImgLastik.Position.X = 20;
  ImgLastik.Position.Y = 400;
  MyForm.SetImage(ImgLastik, 'https://resmim.net/cdn/2025/07/21/XXaWwI.png');
  MyForm.AddNewEvent(ImgLastik, tbeOnMouseMove, 'HareketEttirLastik');

  // 
  BtnKontrol = MyForm.AddNewProButton(MyForm, 'BtnKontrol', 'Kontrol Et');
  BtnKontrol.Align = alBottom;
  BtnKontrol.Height = 50;
  BtnKontrol.clProSettings.FontSize = 18;
  BtnKontrol.SetclProSettings(BtnKontrol.clProSettings);
  MyForm.AddNewEvent(BtnKontrol, tbeOnClick, 'KontrolEt');

  MyForm.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Raziye Nur Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 07 Temmuz 2025 Durum: Aktif Puanlar: 15	Mesaj Seçenekleri Yanıt Yaz Alıntı Raziye Nur Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Görsellerin Sürüklenmesi Gönderim Zamanı: 3 Saat 45 Dakika Önce Saat 14:33
	Merhaba devremdeki boş yere görselleri sürükleyip kontrol et butonuna bastıktan sonra ampul yandı ya da yanmadı şeklinde uyarı vermesini istiyorum ama görsellerin hepsi aynı yere yukarı doğru sürükleniyor ve butona bastığımda doğru yerde olmamasına rağmen ampul yandı olarak gözüküyor sürüklemeyi doğru yapmama yardımcı olabilir misiniz? var MyForm: TclForm; DevrePanel: TCLProPanel; ImgBakirTel, DevreGorsel, ImgTahta, ImgCivi, ImgLastik: TCLImage; SecilenMalzeme: String; // Seçilen malzeme adını tutacak BtnKontrol: TCLProButton; // Hareket fonksiyonları void HareketEttirBakirTel; { ImgBakirTel.Position.X = MyForm.clSenderMousePosX - 25; ImgBakirTel.Position.Y = MyForm.clSenderMousePosY - 25; SecilenMalzeme = 'BakirTel'; } void HareketEttirTahta; { ImgTahta.Position.X = MyForm.clSenderMousePosX - 25; ImgTahta.Position.Y = MyForm.clSenderMousePosY - 25; SecilenMalzeme = 'Tahta'; } void HareketEttirCivi; { ImgCivi.Position.X = MyForm.clSenderMousePosX - 25; ImgCivi.Position.Y = MyForm.clSenderMousePosY - 25; SecilenMalzeme = 'Civi'; } void HareketEttirLastik; { ImgLastik.Position.X = MyForm.clSenderMousePosX - 25; ImgLastik.Position.Y = MyForm.clSenderMousePosY - 25; SecilenMalzeme = 'Lastik'; } // Kontrol butonu fonksiyonu void KontrolEt; { if (SecilenMalzeme == '') { ShowMessage('Önce bir malzeme sürükleyip devreye koymalısın.'); } else if (SecilenMalzeme == 'BakirTel') { ShowMessage('Tebrikler! Devre tamamlandı ve ampul yandı! 💡'); } else if (SecilenMalzeme == 'Civi') { ShowMessage('Tebrikler! Devre tamamlandı ve ampul yandı! 💡'); } else if (SecilenMalzeme == 'Tahta') { ShowMessage('Devre tamamlanamadı, ampul yanmadı.'); } else if (SecilenMalzeme == 'Lastik') { ShowMessage ('Devre tamamlanamadı, ampul yanmadı.'); } } { MyForm = TclForm.Create(Self); SecilenMalzeme = ''; // Başlangıçta boş DevrePanel = MyForm.AddNewProPanel(MyForm, 'DevrePanel'); DevrePanel.Align = alClient; DevrePanel.clProSettings.BackgroundColor = nil; DevrePanel.SetclProSettings(DevrePanel.clProSettings); // Devre görseli DevreGorsel = MyForm.AddNewImage(DevrePanel, 'DevreGorsel'); DevreGorsel.Align = alClient; MyForm.SetImage(DevreGorsel, 'https://resmim.net/cdn/2025/07/21/XXnvec.jpg'); // açık devre görseli ImgBakirTel = MyForm.AddNewImage(DevrePanel, 'ImgBakirTel'); ImgBakirTel.Align = alNone; ImgBakirTel.Width = 50; ImgBakirTel.Height = 50; ImgBakirTel.Position.X = 20; ImgBakirTel.Position.Y = 100; MyForm.SetImage(ImgBakirTel, 'https://resmim.net/cdn/2025/07/21/XXGRK2.png'); MyForm.AddNewEvent(ImgBakirTel, tbeOnMouseMove, 'HareketEttirBakirTel'); ImgTahta = MyForm.AddNewImage(DevrePanel, 'ImgTahta'); ImgTahta.Align = alNone; ImgTahta.Width = 50; ImgTahta.Height = 50; ImgTahta.Position.X = 20; ImgTahta.Position.Y = 200; MyForm.SetImage(ImgTahta, 'https://resmim.net/cdn/2025/07/21/XXGhWL.png'); MyForm.AddNewEvent(ImgTahta, tbeOnMouseMove, 'HareketEttirTahta'); ImgCivi = MyForm.AddNewImage(DevrePanel, 'ImgCivi'); ImgCivi.Align = alNone; ImgCivi.Width = 50; ImgCivi.Height = 50; ImgCivi.Position.X = 20; ImgCivi.Position.Y = 300; MyForm.SetImage(ImgCivi, 'https://resmim.net/cdn/2025/07/21/XXGpL7.png'); MyForm.AddNewEvent(ImgCivi, tbeOnMouseMove, 'HareketEttirCivi'); ImgLastik = MyForm.AddNewImage(DevrePanel, 'ImgLastik'); ImgLastik.Align = alNone; ImgLastik.Width = 50; ImgLastik.Height = 50; ImgLastik.Position.X = 20; ImgLastik.Position.Y = 400; MyForm.SetImage(ImgLastik, 'https://resmim.net/cdn/2025/07/21/XXaWwI.png'); MyForm.AddNewEvent(ImgLastik, tbeOnMouseMove, 'HareketEttirLastik'); // BtnKontrol = MyForm.AddNewProButton(MyForm, 'BtnKontrol', 'Kontrol Et'); BtnKontrol.Align = alBottom; BtnKontrol.Height = 50; BtnKontrol.clProSettings.FontSize = 18; BtnKontrol.SetclProSettings(BtnKontrol.clProSettings); MyForm.AddNewEvent(BtnKontrol, tbeOnClick, 'KontrolEt'); MyForm.Run; }