·功能模块
·判断鼠标是否按下函数
function IsMouseDown: Boolean;
begin
if GetSystemMetrics(SM_SWAPBUTTON) <> 0 then
Result := GetAsyncKeyState(VK_RBUTTON) and $8000 <> 0
else
Result := GetAsyncKeyState(VK_LBUTTON) and $8000 <> 0;
end;
function IsMouseDown: Boolean;
begin
if GetSystemMetrics(SM_SWAPBUTTON) <> 0 then
Result := GetAsyncKeyState(VK_RBUTTON) and $8000 <> 0
else
Result := GetAsyncKeyState(VK_LBUTTON) and $8000 <> 0;
end;
·test2
test2