error

   var
 MyForm:TclForm;
 logInBtn, signInBtn:TClproButton;
 testimage : TCLImage;
begin
  // MyForm nesnesinin doğru şekilde oluşturulması
  MyForm := TclForm.Create(Self);

  // Log In butonu
  logInBtn := MyForm.AddNewProButton(MyForm, 'logInBtn', 'Log In');
  clComponent.SetupComponent(logInBtn, '{
    "Align" : "Bottom",
    "MarginTop" : 20,  // Butonu yukarı almak için MarginTop eklendi
    "BackgroundColor" : "#4CAF50",
    "TextColor" : "#ffffff",
    "TextBold" : "yes",
    "RoundHeight" : 10,
    "RoundWidth" : 20 }');

  // Sign In butonu
  signInBtn := MyForm.AddNewProButton(MyForm, 'signInBtn', 'Sign In');
  clComponent.SetupComponent(signInBtn, '{
    "Align" : "Bottom",
    "MarginTop" : 10,  // Butonu yukarı almak için MarginTop eklendi
    "BackgroundColor" : "#000000",
    "TextColor" : "#ffffff",
    "TextBold" : "yes",
    "RoundHeight" : 10,
    "RoundWidth" : 20 }');

  // Arka plan resmi
  MyForm.SetFormBGImage('https://i.hizliresim.com/ipaca7p.png');

  // Formu çalıştır
  MyForm.run;
end;

RUNTIME ERROR
Access violation at address 0000006F6154200C, accessing address 00403FE039003FC0 when evaluating instruction CallProc ($FFFFFFFF,$2,$6222F9D8,$6F,"SetupComponent").
Stack content is: [Null,Null,-5476376670063091712,-5476376669975238912].
Source position: 18,26
Position: 18, 26 

kodumda bu hatayı alıyorum neden olabilir?

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
kacar.nursena Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 20 Ağustos 2024 Durum: Aktif Değil Puanlar: 27	Mesaj Seçenekleri Yanıt Yaz Alıntı kacar.nursena Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: error Gönderim Zamanı: 23 Ağustos 2024 Saat 14:29
	var MyForm:TclForm; logInBtn, signInBtn:TClproButton; testimage : TCLImage; begin // MyForm nesnesinin doğru şekilde oluşturulması MyForm := TclForm.Create(Self); // Log In butonu logInBtn := MyForm.AddNewProButton(MyForm, 'logInBtn', 'Log In'); clComponent.SetupComponent(logInBtn, '{ "Align" : "Bottom", "MarginTop" : 20, // Butonu yukarı almak için MarginTop eklendi "BackgroundColor" : "#4CAF50", "TextColor" : "#ffffff", "TextBold" : "yes", "RoundHeight" : 10, "RoundWidth" : 20 }'); // Sign In butonu signInBtn := MyForm.AddNewProButton(MyForm, 'signInBtn', 'Sign In'); clComponent.SetupComponent(signInBtn, '{ "Align" : "Bottom", "MarginTop" : 10, // Butonu yukarı almak için MarginTop eklendi "BackgroundColor" : "#000000", "TextColor" : "#ffffff", "TextBold" : "yes", "RoundHeight" : 10, "RoundWidth" : 20 }'); // Arka plan resmi MyForm.SetFormBGImage('https://i.hizliresim.com/ipaca7p.png'); // Formu çalıştır MyForm.run; end; RUNTIME ERROR Access violation at address 0000006F6154200C, accessing address 00403FE039003FC0 when evaluating instruction CallProc ($FFFFFFFF,$2,$6222F9D8,$6F,"SetupComponent"). Stack content is: [Null,Null,-5476376670063091712,-5476376669975238912]. Source position: 18,26 Position: 18, 26 kodumda bu hatayı alıyorum neden olabilir?

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 26 Ağustos 2024 Saat 17:31
	Merhaba NurSena Aşağıdaki kodu inceler misin; var MyForm:TclForm; logInBtn, signInBtn:TClproButton; testimage : TCLImage; begin // MyForm nesnesinin doğru şekilde oluşturulması MyForm := TclForm.Create(Self); // Log In butonu logInBtn := MyForm.AddNewProButton(MyForm, 'logInBtn', 'Log In'); clComponent.SetupComponent(logInBtn, '{ "Align" : "Bottom", "MarginTop" : 20, "BackgroundColor" : "#4CAF50", "TextColor" : "#ffffff", "TextBold" : "yes", "RoundHeight" : 10, "RoundWidth" : 20 }'); // Sign In butonu signInBtn := MyForm.AddNewProButton(MyForm, 'signInBtn', 'Sign In'); clComponent.SetupComponent(signInBtn, '{ "Align" : "Bottom", "MarginTop" : 10, "BackgroundColor" : "#000000", "TextColor" : "#ffffff", "TextBold" : "yes", "RoundHeight" : 10, "RoundWidth" : 20 }'); // Arka plan resmi MyForm.SetFormBGImage('https://i.hizliresim.com/ipaca7p.png'); // Formu çalıştır MyForm.run; end;