|
|
Уничтожает компонент JS+, включая его дочерние компоненты.
// Главная форма frm=new TForm(); frm.Caption="JS+ - метод компонентов JS+ Delete"; frm.Width =525; frm.Height=375;
// Строка состояния stb=new TStatusBar(frm); stb.SimpleText=' Для удаления панели нажмите кнопку "Удалить"';
// Кнопка btn=new TButton(frm); btn.ShowHint=true; btn.Left=frm.ClientWidth-btn.Width-15; btn.Top =stb.Top-btn.Height-15; btn.Caption="Удалить"; btn.Hint="Удалить панель и кнопку"; btn.OnClick=btn_Click;
// Панель pnl=new TPanel(frm); pnl.Caption="Панель"; pnl.BorderStyle=bsSingle; pnl.Left=pnl.Top=15; pnl.Width =frm.ClientWidth-pnl.Left*2; pnl.Height=btn.Top-pnl.Top*2;
frm.ShowModal();
// Обработчик события OnClick function btn_Click(btn) { pnl.Delete(); btn.Delete(); stb.SimpleText=" Панель и кнопка удалены"; }
Совместимость
C++ Builder/Delphi
|
JS+ | Руководство пользователя
|
|
|
|
|
|