Вверх ↑
Этот топик читают: Гость
Ответов: 216
Рейтинг: 6
#1: 2018-10-10 14:42:05 ЛС | профиль | цитата
У дочерней формы не работают внешние точки смещения. Можно как нибудь победить это?


Add(MainForm,2953706,112,140)
{
Name="Set"
Position=1
}
Add(ChildForm,924551,266,175)
{
}
BEGIN_SDK
Add(EditMulti,8213675,21,21)
{
WorkCount=1
link(doWork1,13576391:doShiftTop,[(87,27)(87,139)])
}
Add(MainForm,13576391,154,105)
{
Left=35
Top=105
Width=190
Height=161
Name="555"
ShiftLeft=50
ShiftTop=50
OffsetShift=0
FormFastening="parent.Set"
Point(doShiftTop)
}
END_SDK
Add(Button,7909449,196,175)
{
Left=10
Top=10
Width=80
Caption="Сместить"
Data=Integer(100)
link(onClick,924551:doWork1,[])
}

карма: 2

0
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 25459
Рейтинг: 2070
#2: 2018-10-10 16:43:11 ЛС | профиль | цитата
Это моя недоработка. Попробуй для проверки заменить в hiMainForm.pas вот это

procedure THIMainForm._work_doShiftLeft;
begin
_prop_ShiftLeft := ToInteger(_Data);
Control.Perform(WM_INNERMESSAGE,0,0);
end;

procedure THIMainForm._work_doShiftTop;
begin
_prop_ShiftTop := ToInteger(_Data);
Control.Perform(WM_INNERMESSAGE,0,0);
end;

Если все будет нормально работать, то я внесу изменения.

Редактировалось 3 раз(а), последний 2018-10-10 16:48:51
карма: 19

0
Ответов: 216
Рейтинг: 6
#3: 2018-10-10 17:07:06 ЛС | профиль | цитата
nesco писал(а):
Если все будет нормально работать, то я внесу изменения.


Все работает! Спасибо!!!

--- Добавлено в 2018-10-10 17:50:17

И еще, если дочерняя форма открывается по Visible - то программа встает по верех всех окон. Можно как нибудь сделать что-бы она молча открывала окно и не вылазила наверх? Сейчас такое можно сделать только через прозрачность формы

Редактировалось 1 раз(а), последний 2018-10-10 17:50:17
карма: 2

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)