Проблема с перетаскиванием формы в Firemonkey - Общие вопросы Delphi

arxlex · 15.04.2012, 12:14

Привет, всем!

Я пишу программу на Firemonkey HD Application, и у меня возникла проблема в создании приложении с опциями:

Код:

BorderStyle: bsNone

Пробовал код народным методом в обработчике OnMouseDown:

Код:

  uses WinAPI.Windows, WinAPI.Messages;  
  ...
  if Button = TMouseButton.mbLeft then
  begin
    ReleaseCapture;
    SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
    SendMessage(Handle,WM_SysCommand,   $F012,   0);
  end;

но тоже не сработала. Может кто знает более рабочий метод в Firemonkey.

arxlex · 15.04.2012, 19:57

Мда... похоже мало кто перешел на XE2 с Firemonkey HD вместе взятыми.

TorrentTor · 16.04.2012, 04:36

да тоже пытался форму двигать, уж очень захотелось частично прозрачную ХД
еще побывал двигать вручную но не совместимость типов позиций формы и лейбла меня остановили =(
Как вариант использовать delphi xe2 livebindings, если получится хотелось бы увидеть это =))

15.04.2012, 12:14	#1
arxlex Пользователь Регистрация: 18.01.2012 Сообщений: 23	Проблема с перетаскиванием формы в Firemonkey Привет, всем! Я пишу программу на Firemonkey HD Application, и у меня возникла проблема в создании приложении с опциями: Код: `BorderStyle: bsNone` Пробовал код народным методом в обработчике OnMouseDown: Код: `uses WinAPI.Windows, WinAPI.Messages; ... if Button = TMouseButton.mbLeft then begin ReleaseCapture; SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); SendMessage(Handle,WM_SysCommand, $F012, 0); end;` но тоже не сработала. Может кто знает более рабочий метод в Firemonkey. Mess With the Best, Die Like the Rest

15.04.2012, 19:57	#2
arxlex Пользователь Регистрация: 18.01.2012 Сообщений: 23	Мда... похоже мало кто перешел на XE2 с Firemonkey HD вместе взятыми. Mess With the Best, Die Like the Rest

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Firemonkey и TApplication	arxlex	Общие вопросы Delphi	1	14.04.2012 11:00
Delphi XE2 firemonkey	ST@LKER	Общие вопросы Delphi	8	07.03.2012 23:47
FiremonKey не высвечивается форма	george_jan	Общие вопросы Delphi	1	21.02.2012 09:27
Cube в firemonkey hd application /xe2/	AlexDn	Общие вопросы Delphi	0	01.11.2011 20:43
Копирование перетаскиванием ветвей TreeView	Arteom	Компоненты Delphi	2	26.01.2008 20:13

16.04.2012, 04:36	#3
TorrentTor Форумчанин Регистрация: 02.11.2011 Сообщений: 105	да тоже пытался форму двигать, уж очень захотелось частично прозрачную ХД еще побывал двигать вручную но не совместимость типов позиций формы и лейбла меня остановили =( Как вариант использовать delphi xe2 livebindings, если получится хотелось бы увидеть это =))