liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

界面库 

优化
This commit is contained in:
JianjunLiu 2023-05-08 17:58:22 +08:00
parent 2d6871ffc5
commit 2362674bef
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
funcext/tvclib/tcontrol.tsf
View File

@ -1446,7 +1446,7 @@ type tcontrol = class(tcomponent)
property OnSize:eventhandler read FOnSize write FOnSize;
property OnMove:eventhandler read FOnMove write FOnMove;
property OnMouseMove:eventhandler read FOnMouseMove Write FOnMouseMove;
property OnPopupMenu read FOnPopupMenu write FOnPopupMenu;
property OnPopupMenu:eventhandler read FOnPopupMenu write FOnPopupMenu;
property OnMouseDown:eventhandler read FOnMouseDown write FOnMouseDown;
{**
@param(OnMouseMove)(function[TControl,TMMouse]) 鼠标移动回调函数 %%

10
funcext/tvclib/twincontrol.tsf
View File

@ -1911,6 +1911,16 @@ type TWinControl = class(tcontrol)
if factivated and factivecontrol and ContainsControl(factivecontrol) then factivecontrol.SetFocus();
end
end
function TrackPopupMenu(x,y); //µ¯³ö²Ëµ¥
begin
pp := PopupMenu;
if HandleAllocated() and pp and pp.HandleAllocated() then
begin
xy := ClientToScreen(x,y);
uf := TPM_LEFTALIGN .| TPM_TOPALIGN .| TPM_RIGHTBUTTON;
_wapi.TrackPopupMenu(PopupMenu.Handle,uf,xy[0],xy[1],0,self.Handle,nil);
end
end
function Notification(ac,op);override;
begin
if op=opRecycling and ac=factivecontrol then