На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Как "таскать" компонент мышкой
      ExpandedWrap disabled
         
        procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
         Shift: TShiftState; X, Y: Integer);
        begin
           ReleaseCapture;
           SendMessage(Panel1.Handle, WM_SYSCOMMAND, 61458, 0);
         end;
        end;
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0146 ]   [ 16 queries used ]   [ Generated: 28.03.24, 09:33 GMT ]