|
|
| Правила Форума редакция от 22.06.2020 |
|
|||||||
|
|
Окажите посильную поддержку, мы очень надеемся на вас. Реквизиты для переводов ниже.   WMZ: Z021474945171 WME: E159284508897 WMUSDT: T206853643180 4100117770549562 Спасибо за поддержку!
|
|
 |
|
|
Опции темы | Опции просмотра |
Language
|
25.02.2010, 23:53
|
#1
|
|
Неактивный пользователь
Пол: 
Регистрация: 18.12.2008
Сообщений: 78
Репутация: 19
|
Перетаскивание формы по рабочему столе
Может кто то знает как сделать в delphi 7 программу в которой можно нажав мышкой на форме перетаскивать форму по рабочем столе, например как плавающее окошко в download master.
|
|
|
|
|
| Реклама: | AOC 27G4HA | каркасный дом 2 этажа | вингс м blf230 vim | если доставка авито в озон | Серьги из красного золота с малахитом Клевер |
|
26.02.2010, 08:30
|
#2
|
|
Старожил
 
Пол:
Регистрация: 27.05.2005
Адрес: Тверь (Первомайка)
Сообщений: 1,929
Репутация: 3260
|
Re: Перетаскивание формы по рабочему столе
Попробуйте так:
Код:
ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0);
__________________
У победы много отцов, поражение всегда сирота. |
|
|
|
| Сказали спасибо: |
|
26.02.2010, 14:34
|
#3
|
|||||||||||||||||||||||
|
Неактивный пользователь
Пол:
Регистрация: 18.12.2008
Сообщений: 78
Репутация: 19
|
Re: Перетаскивание формы по рабочему столе
что то ето не работает. я уже нашол,ват как работает: ReleaseCapture; (Sender as TForm).Perform(wm_syscommand, $f012, 0); |
|||||||||||||||||||||||
|
|
|
|
06.09.2010, 12:01
|
#4
|
|
Неактивный пользователь
Регистрация: 03.09.2010
Сообщений: 1
Репутация: 0
|
Re: Перетаскивание формы по рабочему столе
procedure TfrPoezdki.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); const SC_DRAGMOVE = $F012; begin // ПЕРЕМЕЩАЕМ ReleaseCapture; frPoezdki.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); end; - аналогично под форму/панельку и т.д. 100% работает |
|
|
|
|
| Опции темы | |
| Опции просмотра | |
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Перетаскивание объектов на странице ... Как? | MrSnaKe | HTML | 7 | 19.02.2010 19:42 |
| Как разрешить перетаскивание ярлыков | mihail197 | Windows XP | 2 | 22.01.2010 12:29 |
| Перетаскивание узлов по TTreeView | Litvinenko_A | Delphi | 4 | 18.11.2008 17:32 |
| Подключение к удаленному рабочему столу. | Rasmus | Windows XP | 28 | 11.10.2008 12:47 |
| перетаскивание в TreeView | Litvinenko_A | Delphi | 1 | 08.09.2008 11:44 |
|
|
Линейный вид
