Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2014, 11:24   #21
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,022
По умолчанию

Цитата:
Если это дело скомпилировать и запустить, то форма как была прямоугольной с заголовком, бордюром, такой и появляется.
Но если этот код будет скомпилирован в обычном VCL приложении, то форма появится в виде круга.
fm это другой подход если вы будете смотреть на это как на вкл, шансы на успех = 0 и точка.
Я ж дал ссылку как надо начинать, а дальше подумать еще и понять как развить, там делов то на копейку.
eval вне форума Ответить с цитированием
Старый 01.07.2014, 11:38   #22
StriderX
Форумчанин
 
Регистрация: 21.04.2014
Сообщений: 115
По умолчанию

Цитата:
Сообщение от Прик Посмотреть сообщение
StriderX, да, именно так как у вас показано, но это общее место и приведенные нами совершенно одинаковые фрагменты в FM не срабатывают.
Сходу, смущает приведение в лоб HWND(Handle).
Handle в былые времена - это некий номер\указатель для винды.
Если мы ткнём по Handle с зажатым контролом в проекте FM, то обнаружим что там уже живёт не какой-то номер, а целый класс (TWindowHandle), хоть и пустой. Это должно навести нас на мысль, что это какая-то служебная штука-дрюка для нужд FM, видимо для работы на всех платформах подряд.
Делаем предположение, что FM под виндой всё равно создаёт полноценное окно и регистрирует его в системе, значит должен быть метод получения этого хендла (а спрятали его от нас, чтобы мы не ломали переносимость кода). Гуглим, натыкаемся на FmxHandleToHWND, подставляем, работает, радуемся.
PS: кстати, еще гуглятся всякие WindowHandleToPlatform. Поэтому возможно есть варианты написания единого кода для всех платформ, надо просто внимательнее почитать доки.

Последний раз редактировалось StriderX; 01.07.2014 в 11:58.
StriderX вне форума Ответить с цитированием
Старый 01.07.2014, 11:53   #23
Utkin
Старожил
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Сообщений: 18,136
По умолчанию

Цитата:
Это должно навести нас на мысль, что это какая-то служебная штука-дрюка для нужд FM, видимо для работы на всех платформах подряд.
Я к этому и вел, только на уровне юнитов .
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума Ответить с цитированием
Старый 01.07.2014, 12:36   #24
Прик
Форумчанин
 
Регистрация: 08.09.2010
Сообщений: 880
По умолчанию

StriderX, Utkin, виноват. Повернуть свою толстую гузку в этом направлении не догадался. Действительно Handle - класс. Подозрительно пусто-голый. Но класс - есть класс и с этим надо считаться. Преобразование мое было глупым и дилетантским.
Спасибо, что за меня погуглились. С вашей помощью FM прогнулся - кругляк есть.
Прик вне форума Ответить с цитированием
Старый 04.03.2019, 13:00   #25
Alecks
 
Регистрация: 11.06.2012
Сообщений: 6
По умолчанию

Скиньте, пожалуйста ,код для примера, а то что-то не разобрался...
А
SetWindowRGN(FMXHandleToHWND(form1. Handle),CreateEllipticRgn(0,0,100,1 00), true);

все равно делает форму квадратной, а не овальной...
Alecks вне форума Ответить с цитированием
Старый 04.03.2019, 17:54   #26
DIONISKA
Форумчанин
 
Регистрация: 07.11.2011
Сообщений: 156
По умолчанию

В обезьяне регионы не нужны, чтобы делать произвольную форму для окна. Достаточно у формы установить свойство Transparency в true и либо поверх неё закинуть Shape(тот-же TCircle), либо рисовать ручками в onpaint формы, и тогда бонусом будет возможность регулировать уровни прозрачности.
DIONISKA вне форума Ответить с цитированием
Старый 06.03.2019, 17:16   #27
Alecks
 
Регистрация: 11.06.2012
Сообщений: 6
По умолчанию

Спасибо большое, отличный вариант!
Alecks вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
FireMonkey ZuBy Общие вопросы Delphi 2 28.12.2013 20:37
FireMonkey Konstant_Tom C++ Builder 4 18.06.2013 19:20
Bass и FireMonkey Dark_Observer Мультимедиа в Delphi 1 28.09.2012 22:17
А где Firemonkey? GSirr О форуме и сайтах клуба 2 04.08.2012 00:19
Firemonkey и TApplication arxlex Общие вопросы Delphi 1 14.04.2012 11:00