На всю форму залита картинка как фон, при зажатой левой клавише можно перетаскивать форму по экрану

@ivan.-94 · Регистрация: 02.06.2012

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток.
Пробовал сделать как в простом VSL Application, ничего не получается:

C++
1
2
3
4
5
6
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
      ReleaseCapture();
      Perform(WM_SYSCOMMAND, 0xF012, 0);
}

Так же пробовал:

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
long SC_DRAGMOVE = 0xF012;
 if(Button == mbLeft)                
  {
  ReleaseCapture();
  SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
 }        
}

Ничего не работает в FireMonkey

@volvo · 03.03.2016, 10:32

Builder XE2:

C++
1
2
3
4
5
6
7
8
#include <FMX.Platform.Win.hpp>
 
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          float X, float Y)
{
      ::ReleaseCapture();
      ::SendMessage(FmxHandleToHWND(this->Handle), WM_SYSCOMMAND, 0xF012, 0);
}

прекрасно работает. Но, разумеется, только под Windows...

@ivan.-94 · 03.03.2016, 11:46 **[ТС]**

volvo,
[bcc32 Error] Unit1.cpp(26): E2268 Call to undefined function 'FmxHandleToHWND'
Full parser context
Unit1.cpp(24): parsing: void _fastcall TInfo::Image1MouseDown(TObject *,TMouseButton,TShiftState,float,float)

@volvo · 03.03.2016, 11:48

Файл, который я показал первой строкой, подключен? Ну, или используй WindowHandleToPlatform в самых новых версиях, где FmxHandleToHWND уже deprecated

@ivan.-94 · 03.03.2016, 12:28 **[ТС]**

volvo,
У меня Rad Studio 10
WindowHandleToPlatform тоже не находит
Заголовочный файл подключал.

@volvo · 03.03.2016, 12:36

Должны быть, в сети есть примеры использования. Проверить не могу, я новомодных монстров не держу.

@ivan.-94 · 03.03.2016, 19:18 **[ТС]**

Приходится пробираться по шагам

C++
1
Fmx::Platform::Win::FmxHandleToHWND()

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	03.03.2016, 11:46 [ТС]
	volvo, [bcc32 Error] Unit1.cpp(26): E2268 Call to undefined function 'FmxHandleToHWND' Full parser context Unit1.cpp(24): parsing: void _fastcall TInfo::Image1MouseDown(TObject *,TMouseButton,TShiftState,float,float) 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	03.03.2016, 11:48
	Файл, который я показал первой строкой, подключен? Ну, или используй WindowHandleToPlatform в самых новых версиях, где FmxHandleToHWND уже deprecated 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	03.03.2016, 12:28 [ТС]
	volvo, У меня Rad Studio 10 WindowHandleToPlatform тоже не находит Заголовочный файл подключал. 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	03.03.2016, 12:36
	Должны быть, в сети есть примеры использования. Проверить не могу, я новомодных монстров не держу. 0