Winexcel

13 часа назад, enatechno сказал:

 

 

Вы предлагает следующее решение:

Цитата

1). использовать обычную форму с расположенным на нем TPopup

Я делаю тоже самое, но фокус edit не получает.
По поводу второго:

Цитата

2). Использовать TRectangle разместив его на главной форме, сделав полупрозрачным и Align=Contents. Второй TRectangle - непрозрачный, поместить на первый, Align=Center. На последний поместить TEdit. Делать такую "модальную форму" видимой меняя Visibile первого TRectangle и помещать выше всех .BringToFront. 

Требуется чтобы попап окно закрывалось когда я кликаю по любому другому элементу на форме которая вызвала попап окно.

В данном примере присутствует хорошая утечка памяти.

Не нашёл раздела для этого компонента, поэтому спрошу здесь.
Закинул на TPopup компонент TEdit, вызвал TPopup

  Popup1.Popup(False);

Пробую ввести в TEdit текст, ничего не вводится, если вызывать попап как модальное окно то работает, можно ли как-то исправить это?

И ещё, при указании PlacementTarget, можно ли как-то попап окно сдвинуть от компонента к которому оно "прилипает"?

4 минуты назад, Равиль Зарипов (ZuBy) сказал:

для чего Вам вставлять стиль? 

Опишите конкретную задачу

Конкретной задачи нет, меня интересует просто для чего нужна копия стиля

Здравствуйте! Пытаюсь добавить иконку к каждому пункту меню через TPopupMenu, сделал следующий стиль, добавил в TImageList нужные картинки, указал нужные иконки в каждом TMenuItem'е, запустил программу, вызвал меню и получил AV, в результате чего такое может быть? Прикрепил исходник

Архив ZIP - WinRAR.zip

1 час назад, enatechno сказал:

Можно. Стиль называется menuviewstyle.

 

Огромное вам спасибо! Подскажите пожалуйста а как я сам могу найти это название(если бы не знал что стиль так называется)?

Вот есть конкретный метод findStyleResourceAndClone, он создаёт копию стиля, я так понимаю что копия стиля нужна для того чтобы её вставлять в другой визуальный компонент, например TButton..

Или можно также вызвать метод FindStyleResource('', TRUE) , где последний параметр AClone

function TPresentedControl.FindStyleResource(const AStyleLookup: string; const AClone: Boolean): TFmxObject;

отвечает за копирование стиля.

Объясните для чего вообще это нужно тогда? Если не для вставки этого стиля..

Можно делать именно копированием, вот я и спрашиваю как

Собственно сабж, можно ли стилизовать бэкгрануд? И если да, то как стиль называется не подскажете?

Подскажите пожалуйста, как мне вставить свой стиль в какой либо компонент, например в TButton вставить стиль от TEdit(предполагается что стили есть в TStyleBook), findStyleResourceAndClone

пробовал так:

  Button1.AddObject(StyleBook.FindStyleResource('editStyle', True));

Но стиля едита не увидел

Здравствуйте! Подскажите пожалуйста как сделать форму загрузки не меняя её на главную форму? Допустим есть такая ситуация:
Имеется две формы, на главной форме находится TStyleBook, на форме что должна показатся первой(назовём её побочной формой)(там будет трэк бар с загрузкой), должна выгружать стиль с главной формы, но при запуске приложения скрывать главную форму и показывать побочную не комильфо, видно как главная форма скрывается.

Собственно как сделать так чтобы главная форма была создана но не показана? А показана вместо неё форма загрузки приложения

Компонент TLang не работает для TText, это баг в самом компоненте или есть решение?

А свои сообщение пользовательские можно слать? Отредактировал юнит, пытаюсь сделать следующее:

определил своё сообщение

MsgTabsPopupAdd = WM_USER+1;

в паблике формы написал:

procedure MsgInterceptorTabsPopupAdd(var Message:TMessage); message MsgTabsPopupAdd;

затем вызываю эту форму и отправляю ей сообщение:

form2.Show;
SendMessage(FMXHandleToHWND(Form2.Handle), MsgTabsPopupAdd, 0, 0);

но сообщение не приходит, хотя в vcl работает отлично

Нет. Нужно в папку с проектом положить?

Нужно перехватывать на форме сообщения по VCL-ному, отредактировал процедуру WndProc как предложил Ярослав,

Но после редактирования и сохранения юнита мои изменения не применяются, в отладчике дае если трассировать то делфи просто игнорирует изменения, это нормально? Delphi 10.1 Berlin Update 2

Если кому интересно - проблему решил через создание своего окна со стилем WS_POPUP, и написанием логики благодаря которой данное окно "встраивается" в какой-либо контролл на уровне координат, решение более менее работает, но все же до WS_CHILD окна такому окну далеко, при перемещении главного окна заметны оставания попап окна(то есть перемещение не синхронное), может кто знает как добится эффекта синхронности? Если даже и не знает всем огромное спасибо за помощь!

1 час назад, Равиль Зарипов (ZuBy) сказал:

события нет, нужно переопределить оконную процедуру и там ловить сообщение WM_SIZE (если не ошибаюсь)

можно пример?

И ещё такой вопрос, можно ли как-то определить координаты контролла относительно рабочего стола из "коробки"? Без написания своих решений

Спасибо, с положением уже понял, а есть событие которое позволяет узнать когда положение меняется? Например когда за кепшенбар форму перетаскиваем по экрану

Здравствуйте! Кто-нибудь знает как узнать координаты расположения формы относительно рабочего стола? И как узнать когда они меняются?

Думаю в сторону создания окна со стилем WS_POPUP, на сколько только это правильное решение я не знаю, но задачу нужно как-то решать.

Задача стоит следующая если перефразировать, нужно создать область которая будет иметь Handle(я взял форму потому что на FMX только она имеет Handle), эту форму нужно будет создавать и закреплять на месте какого либо контролла, чтобы она смещалась вместе с этим контролом, машстабировалась как контролл, и всё в таком духе. На этот контролл я хочу забрасывать объекты через винапи..задача очень специфическая.

40 минут назад, Menkos1 сказал:

Т.е. думаете что форма FireMonkey - потребляет больше ресурсов системы чем VCL ?

да так что чистая форма VCL - запускается моментально, а FireMonkey через полторы-две секунды..?

Вы совершенно правильно меня поняли)

А вообще реально создать форму типа WS_CHILD на полностью прозрачной форме? А чтобы форма WS_CHILD не была прозрачной

Может быть проблема в характеристиках?

Нужно при перерисовки одного объекта в методе Paint вызвать метод Repaint для перерисовки другого объекта, собственно так делаю вызов но второй объект не перерисовывается, даже событие не срабатывает, почему? И как сделать чтобы срабатывало? Заранее огромное спасибо!