Архив метки: Показать

Работа с формой программы

Не показывать форму программы: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Application.ShowMainForm:=false; [/cc] Запретить кнопку Close [x] в заголовке окна: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Style := GetWindowLong(Handle, GWL_STYLE); SetWindowLong(Handle, GWL_STYLE, Style And Not WS_SYSMENU); // var Style: Longint; [/cc] Задание цвета формы: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Form1.Color:=RGB(255,130,10); // т.е. задаем значения Красного, Зеленого, Синего (0..255).… Читать далее »