genel işlemler

   var 
resimsecform: tclform;
resimsecbtn : TClProButton;

void resimegit;
{
  Clomosy.RunUnit('uResim');
}
{
  resimsecform = tclform.Create(self);
  resimsecform.clSetCaption('resim seç');
  resimsecbtn = resimsecform.AddNewProButton(resimsecform, 'resimsecbtn', 'RESİM SEÇ');
  resimsecbtn.Align = alBottom;
  resimsecbtn.Width = 150;
  resimsecbtn.Height = 70;
  resimsecbtn.clProsettings.Backgroundcolor = clAlphaColor.clHextoColor ('#36a68a');
  resimsecbtn.clProsettings.FontSize = 12;
  resimsecbtn.clProsettings.FontVertAlign = palCenter;
  resimsecbtn.clProsettings.FontHorzAlign = palCenter;
  resimsecbtn.clProsettings.IsFill = True;
  resimsecbtn.setclProsettings(resimsecbtn.clProsettings);

  resimsecform.AddNewEvent(resimsecbtn,tbeOnClick,'resimegit');
  resimsecform.Run;
}

var
myform: tclform;
resimImg: TClProImage;
AnaPanel: TclProPanel;

void cicekresmi;
{
ShowMessage('resim seçildi');
}
{
  myform= tclform.Create(self);
  resimImg =myform.AddNewImage(AnaPanel, 'resimImg');
  resimImg.Align = alClient;
  resimImg.clProsettings.PictureAutoFit = True;
  resimImg.clProsettings.PictureSource ='https://resmim.net/cdn/2025/05/11/NF7UY3.jpg';
  resimImg.SetclProsettings(resimImg.clProsettings);
  myform.AddNewEvent(myform,tbeOnClick,'cicekresmi');

  myform.Run;
}

uResim birimiyle beraber anakodu çalıştırmaya çalışıyorum ama hata veriyor.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
aytnnr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 20 Saat 41 Dakika Önce Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı aytnnr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: genel işlemler Gönderim Zamanı: 20 Saat 32 Dakika Önce Saat 16:27
	var resimsecform: tclform; resimsecbtn : TClProButton; void resimegit; { Clomosy.RunUnit('uResim'); } { resimsecform = tclform.Create(self); resimsecform.clSetCaption('resim seç'); resimsecbtn = resimsecform.AddNewProButton(resimsecform, 'resimsecbtn', 'RESİM SEÇ'); resimsecbtn.Align = alBottom; resimsecbtn.Width = 150; resimsecbtn.Height = 70; resimsecbtn.clProsettings.Backgroundcolor = clAlphaColor.clHextoColor ('#36a68a'); resimsecbtn.clProsettings.FontSize = 12; resimsecbtn.clProsettings.FontVertAlign = palCenter; resimsecbtn.clProsettings.FontHorzAlign = palCenter; resimsecbtn.clProsettings.IsFill = True; resimsecbtn.setclProsettings(resimsecbtn.clProsettings); resimsecform.AddNewEvent(resimsecbtn,tbeOnClick,'resimegit'); resimsecform.Run; } var myform: tclform; resimImg: TClProImage; AnaPanel: TclProPanel; void cicekresmi; { ShowMessage('resim seçildi'); } { myform= tclform.Create(self); resimImg =myform.AddNewImage(AnaPanel, 'resimImg'); resimImg.Align = alClient; resimImg.clProsettings.PictureAutoFit = True; resimImg.clProsettings.PictureSource ='https://resmim.net/cdn/2025/05/11/NF7UY3.jpg'; resimImg.SetclProsettings(resimImg.clProsettings); myform.AddNewEvent(myform,tbeOnClick,'cicekresmi'); myform.Run; } uResim birimiyle beraber anakodu çalıştırmaya çalışıyorum ama hata veriyor.

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 13	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 3 Saat 2 Dakika Önce Saat 09:57
	Merhaba Ayten, bu kodu Anaforma eklemen gerekşyor; var resimsecform: tclform; resimsecbtn : TClProButton; void resimegit; { Clomosy.RunUnit('uResim'); } { resimsecform = tclform.Create(self); resimsecform.clSetCaption('resim seç'); resimsecbtn = resimsecform.AddNewProButton(resimsecform, 'resimsecbtn', 'RESİM SEÇ'); resimsecbtn.Align = alBottom; resimsecbtn.Width = 150; resimsecbtn.Height = 70; resimsecbtn.clProsettings.Backgroundcolor = clAlphaColor.clHextoColor ('#36a68a'); resimsecbtn.clProsettings.FontSize = 12; resimsecbtn.clProsettings.FontVertAlign = palCenter; resimsecbtn.clProsettings.FontHorzAlign = palCenter; resimsecbtn.clProsettings.IsFill = True; resimsecbtn.setclProsettings(resimsecbtn.clProsettings); resimsecform.AddNewEvent(resimsecbtn,tbeOnClick,'resimegit'); resimsecform.Run; } Diğer kalan aşağıda ki kodu da uResim adlı bir birim oluşturup oraya eklemen gerekiyor; var myform: tclform; resimImg: TClProImage; AnaPanel: TclProPanel; void cicekresmi; { ShowMessage('resim seçildi'); } { myform= tclform.Create(self); resimImg =myform.AddNewProImage(myform, 'resimImg'); resimImg.Align = alClient; resimImg.clProsettings.PictureSource ='https://resmim.net/cdn/2025/05/11/NF7UY3.jpg'; resimImg.SetclProsettings(resimImg.clProsettings); myform.AddNewEvent(myform,tbeOnClick,'cicekresmi'); myform.Run; } uResim adlı birimdeki hata da Resmi AnaPanel adlı bir bileşene eklemeye çalışmışsın ama panel forma eklenmemiş bir diğer hata da TclProImage bileşeni kullanmak istemişsin forma eklerken AddNewProImage olarak eklemen gerekir. Sana gönderdiğim şekilde çalıştıra bilirsin.