![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
![]() |
Убирать бордюр формы при перемещенииDelphi , Программа и Интерфейс , ФормыУбирать бордюр формы при перемещении
Оформил: DeeCo procedure TForm1.PanelTopMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DRAGMOVE = $F012; begin if (Button = mbLeft) then begin ReleaseCapture; (Self as TControl).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); end; end; Статья Убирать бордюр формы при перемещении раздела Программа и Интерфейс Формы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 ![]() |