为什么实现窗体移动,单击事件无效,,请问大家有什么好的办法????

Question

  if (ssleft in Shift) then
  begin
    ReleaseCapture;
    SendMessage(fm_Bottom.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
   //Perform(WM_syscommand, $F012, 0);
  end;
有这些单击事件会没效了

Answer 1

你应该把函数未处理的消息传递下去??什么意思?
我用的移动后可以单击,这样单击没反应
procedure Tfm_Bottom.RxGIFClick(Sender: TObject);
begin
  showFrom;
end;procedure Tfm_Bottom.RxGIFMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssleft in Shift) then
  begin
    ReleaseCapture;
    SendMessage(fm_Bottom.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
   //Perform(WM_syscommand, $F012, 0);
  end;
end;

Answer 2

看看你在窗体的active事件中写东西了吗？可能会有影响。