Вверх ↑
Ответов: 253
Рейтинг: 0
#1: 2021-11-12 15:59:53 ЛС | профиль | цитата
Gunta писал(а):

Вот пример как можно сделать окно ffplay "прозрачным" для мыши

Огромное спасибо) Получилось.
Не знаю правильно или нет. но дописал возможность выключать режим "Клик сквозь форму"


Add(MainForm,6168681,238,112)
{
Width=620
Height=429
Caption="Прозрачная форма, не реагирующая на мышь"
DragForm=0
Point(Handle)
Point(PHandle)
link(onCreate,6616881:doEvent1,[])
}
Add(WinTools,4866552,399,105)
{
Point(doAlphaBlendValue)
Point(doEnable)
link(Handle,11362747:Var1,[(405,96)(328,96)])
}
Add(DoData,6131835,343,133)
{
Data=Integer(150)
link(onEventData,4866552:doAlphaBlendValue,[])
}
Add(Hub,6616881,287,126)
{
link(onEvent1,4866552:doPopup,[(312,132)(312,118)])
link(onEvent2,6131835:doData,[])
}
Add(GetDataEx,11362747,322,151)
{
Angle=3
link(Data,6168681:Handle,[(244,156)])
}
Add(InlineCode,4502086,322,196)
{
WorkPoints=#11:doEX_Transp|12:doEX_Transp1|
DataPoints=#6:Handle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|22: Handle : THI_Event;|55: Procedure doEX_Transp (var _Data:TData; Index:word);|56: Procedure doEX_Transp1 (var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|65:Procedure THiAsmClass.doEX_Transp (var _Data:TData; Index:word);|5:Begin|136: SetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE, GetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE) or WS_EX_TRANSPARENT);|4:end;|0:|69: Procedure THiAsmClass.doEX_Transp1 (var _Data:TData; Index:word);|5:Begin|141: SetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE, GetWindowLong(ReadInteger(_Data,Handle,0), GWL_EXSTYLE) and not WS_EX_TRANSPARENT);|4:end;|0:|0:|4:end.|
link(Handle,11362747:Var2,[])
}
Add(Switch,4079365,280,189)
{
DataOn=String(1)
DataOff=String(0)
Point(onOn)
Point(onOff)
link(onOn,4502086:doEX_Transp,[])
link(onOff,4502086:doEX_Transp1,[])
}
Add(ChildForm,6796585,217,189)
{
link(onEvent1,4079365:doSwitch,[])
}
BEGIN_SDK
Add(EditMulti,15061766,21,21)
{
EventCount=1
}
Add(MainForm,16614817,35,105)
{
Left=35
Top=105
Width=190
Height=92
}
Add(Button,6893416,119,77)
{
Width=174
Align=2
link(onClick,15061766:onEvent1,[(236,83)(236,27)])
}
END_SDK

карма: 0

0