среда, 9 апреля 2014 г.

Ссылка. Создание непрямоугольных форм в Delphi и C++Builder

http://alexanderbondar.blogspot.ru/2014/03/7-delphi-c-4.html

Из комментариев:

"Отдать HTCAPTION в ответ на WM_NCHITTEST - никак? Раз уж SetWindowRgn осветили.
А то ведь прочитает молодежь - мол, переместить невозможно, поскольку окно без заголовка. Уж больно категорично и безапелляционно."

:-)

Ну и "от себя" - http://18delphi.blogspot.ru/2013/03/blog-post_8379.html

2 комментария:

  1. Обычно я таскаю форму так:

    const
    SC_DragMove = $F012;

    ...

    procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
    end;

    ОтветитьУдалить