Как "таскать" компонент мышкой
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [216.73.216.43] |
Дорогие друзья! Поздравляем вас с наступающим Новым 2026 годом!
Всем удачи, успеха и благополучия!
|
|
Как "таскать" компонент мышкой
|
Сообщ.
#1
,
|
|
  |
  procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Panel1.Handle, WM_SYSCOMMAND, 61458, 0); end; end; |
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0305 ] [ 15 queries used ] [ Generated: 30.12.25, 03:59 GMT ]