procedure TForm1.WndProc(var Message: TMessage);
begin
with Message do
begin
if (Msg = WM_Move) then
begin
if LParamLo > Screen.Width then ///LParamLo 为消息获得的当前的窗体左边界
begin
Msg := WM_NULL;
end;
end;
end;
inherited;
end;为什么我这样写了,还是没有起作用
begin
with Message do
begin
if (Msg = WM_Move) then
begin
if LParamLo > Screen.Width then ///LParamLo 为消息获得的当前的窗体左边界
begin
Msg := WM_NULL;
end;
end;
end;
inherited;
end;为什么我这样写了,还是没有起作用
左边界判断的右边?
各位不认为应该是LParamLo > Screen.Width 吗?
我试过了,这个判断是对的!
大家好象没帮忙解决我的关键问题么!