Obje var mı kontrolü

   Yapmış olduğum panel ile arkaplan efekti veriyorum fakat benim iki pop up'ımda da çalışmasını istiyorum aynı isaimde iki tane oluşturmaya çalıştığı için o uniti çalıştırmıyor.

void OpacityPnlVD
{
  if(OpacityPnl == nil){
  ShowMessage('opacity panel yok .')}
  if(OpacityPnl <> nil){
    OpacityPnl= MainForm.AddNewProPanel(MainForm,'OpacityPnl');
    OpacityPnl.Align=alCenter;
    //OpacityPnl.Width = 393;
    OpacityPnl.Width= (MainForm.clWidth);
    OpacityPnl.Height = (MainForm.clHeight*1.2);
    OpacityPnl.Visible=False;
    OpacityPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000');
    OpacityPnl.opacity=0.6;
    OpacityPnl.SetclProSettings(OpacityPnl.clProSettings);
  }
}

void StatePopUp  // şEF SİPARİŞ DURUMUNA BASTIĞINDA AÇILACAK POPUP 
  { 
  OpacityPnlVD;
  StatePnl= MainForm.AddNewProPanel(MainForm,'StatePnl');

void WaiterPopUp  //GARSON SİPARİŞ DURUMUNA BASTIĞINDA AÇILACAK POPUP 
{
  OpacityPnlVD;

  WaiterPopUpPnl= MainForm.AddNewProPanel(MainForm,'WaiterPopUpPnl');

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
M-Guney Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 16 Eylül 2025 Konum: Konya, Meram, K Durum: Aktif Puanlar: 108	Mesaj Seçenekleri Yanıt Yaz Alıntı M-Guney Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Obje var mı kontrolü Gönderim Zamanı: 7 Saat 6 Dakika Önce Saat 10:52
	Yapmış olduğum panel ile arkaplan efekti veriyorum fakat benim iki pop up'ımda da çalışmasını istiyorum aynı isaimde iki tane oluşturmaya çalıştığı için o uniti çalıştırmıyor. void OpacityPnlVD { if(OpacityPnl == nil){ ShowMessage('opacity panel yok .')} if(OpacityPnl <> nil){ OpacityPnl= MainForm.AddNewProPanel(MainForm,'OpacityPnl'); OpacityPnl.Align=alCenter; //OpacityPnl.Width = 393; OpacityPnl.Width= (MainForm.clWidth); OpacityPnl.Height = (MainForm.clHeight*1.2); OpacityPnl.Visible=False; OpacityPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000'); OpacityPnl.opacity=0.6; OpacityPnl.SetclProSettings(OpacityPnl.clProSettings); } } void StatePopUp // şEF SİPARİŞ DURUMUNA BASTIĞINDA AÇILACAK POPUP { OpacityPnlVD; StatePnl= MainForm.AddNewProPanel(MainForm,'StatePnl'); void WaiterPopUp //GARSON SİPARİŞ DURUMUNA BASTIĞINDA AÇILACAK POPUP { OpacityPnlVD; WaiterPopUpPnl= MainForm.AddNewProPanel(MainForm,'WaiterPopUpPnl');

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Puanlar: 418	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ı: 11 Dakika Önce Saat 17:47
	Aynı isim de iki panel oluşturulduğu için hata verir. OpacityPnl bir kez oluşturup iki farklı popup'ta kullanalım var MainForm: TClForm; OpacityPnl: TclProPanel; StatePnl: TclProPanel; WaiterPopUpPnl: TclProPanel; void OpacityPnlVD { Try if (OpacityPnl <> nil) { OpacityPnl.Visible = True; Exit; } OpacityPnl = MainForm.AddNewProPanel(MainForm, 'OpacityPnl'); OpacityPnl.Align = alCenter; OpacityPnl.Width = MainForm.clWidth; OpacityPnl.Height = MainForm.clHeight * 1.2; OpacityPnl.Visible = False; OpacityPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000'); OpacityPnl.Opacity = 0.6; OpacityPnl.SetclProSettings(OpacityPnl.clProSettings); except ShowMessage('OpacityPnlVD hatası: ' + LastExceptionMessage); } } void StatePopUp { Try OpacityPnlVD; StatePnl = MainForm.clFindComponent('StatePnl') as TclProPanel; if (StatePnl == nil) { StatePnl = MainForm.AddNewProPanel(MainForm, 'StatePnl'); // StatePnl ayarlarını buraya } if (OpacityPnl <> nil) { OpacityPnl.Visible = True; } if (StatePnl <> nil) { StatePnl.Visible = True; } except ShowMessage('StatePopUp hatası: ' + LastExceptionMessage); } } void WaiterPopUp { Try OpacityPnlVD; WaiterPopUpPnl = MainForm.clFindComponent('WaiterPopUpPnl') as TclProPanel; if (WaiterPopUpPnl == nil) { WaiterPopUpPnl = MainForm.AddNewProPanel(MainForm, 'WaiterPopUpPnl'); // WaiterPopUpPnl ayarlarını buraya } if (OpacityPnl <> nil) { OpacityPnl.Visible = True; } if (WaiterPopUpPnl <> nil) { WaiterPopUpPnl.Visible = True; } except ShowMessage('WaiterPopUp hatası: ' + LastExceptionMessage); } } https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">