Obje var m� kontrol� : Aynı isim de iki panel oluşturulduğu...

Thu, 13 Nov 2025 17:47:43 +0000

Yazar: Emr.Erkmn
Konu: 1226
G�nderim Zaman�: 13 Kas�m 2025 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">

Obje var m� kontrol� : Yapmış olduğum panel ile arkaplan...

Thu, 13 Nov 2025 10:52:51 +0000

Yazar: M-Guney
Konu: 1226
G�nderim Zaman�: 13 Kas�m 2025 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');

Clomosy | Forum : Obje var m� kontrol�

Obje var m� kontrol� : Aynı isim de iki panel oluşturulduğu...

Obje var m� kontrol� : Yapmış olduğum panel ile arkaplan...