Genel İşlemler

error

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=902
Tarih: 22 Ocak 2025 Saat 20:13
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: error

Mesajı Yazan: kacar.nursena
Konu: error
Mesaj Tarihi: 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" rel="nofollow - 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?

Cevaplar:

Mesajı Yazan: Developer
Mesaj Tarihi: 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" rel="nofollow - https://i.hizliresim.com/ipaca7p.png ');

// Formu çalıştır

MyForm.run;

end;