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" rel="nofollow - 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">
|