Как сделать чтоб окно можно передвигать мышкой?

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by mr.anon1m, 21 Feb 2012.

  1. mr.anon1m

    mr.anon1m New Member

    Joined:
    16 Dec 2011
    Messages:
    11
    Likes Received:
    0
    Reputations:
    0
    [Delphi]Как сделать чтоб окно можно передвигать мышкой?

    У меня есть Form1 я поставил BorderStyle на bsNone . Как сделать чтоб окно можно передвигать мышкой в разные стороны? Тоесть после комплектации окно стоит на месте и его нельзя передвинут.
     
    #1 mr.anon1m, 21 Feb 2012
    Last edited: 21 Feb 2012
  2. Rastamanka

    Rastamanka Elder - Старейшина

    Joined:
    26 Nov 2008
    Messages:
    429
    Likes Received:
    11
    Reputations:
    7
    На событие OnMouseDown вешаешь
    Code:
     ReleaseCapture;
     Form1.perform(WM_SysCommand,$F012,0);
    
     
  3. mr.anon1m

    mr.anon1m New Member

    Joined:
    16 Dec 2011
    Messages:
    11
    Likes Received:
    0
    Reputations:
    0
    Rastamanka, спосибо.... Выручил!